Portefeuille: Adèle Kahinda exprime aux PCA et DG des entreprises publiques sa détermination à parachever la réforme afin d'augmenter la contribution de son secteur dans le budget de l'État La ministre d'État, ministre du Portefeuille, Adèle Kahinda a échangé ce jeudi 13 mai 2021 avec les présidents du Conseil d'administration et les Directeurs généraux des entreprises publiques. Dans son adresse, Adèle Kahinda Mahina a relevé le diagnostic stratégique de ces entreprises tant au plan structurel, opérationnel, organisationnel que financier mettant un accent sur le dysfonctionnement qui compromet leur gouvernance. Pour renverser cette tendance à la dégradation des entreprises publiques et espérer leur relance, Adèle Kahinda a rappelé la nécessité de parachever la réforme du Portefeuille lancée en 2008. « Voici donc 13 ans déjà que ce processus dure et le programme du gouvernement a assigné à mon ministère la tâche de les parachever. Ma vision dans ce domaine, c'est de faire progressivement du Portefeuille de l'État un secteur porteur des richesses pour la République Démocratique du Congo en augmentant sa contribution au PIB et au financement du budget de l'État dans les proportions enviables des décennies 1960-1980 soit respectivement 60 à 40%.
Ce lundi 19 Juillet 2021, la Ministre d'Etat, Ministre du Portefeuille, son Excellence Princesse Adèle Kayinda Mahina, a reçu son homologue Ministre d'Etat, Ministre de l'aménagement du Territoire, son Excellence Guy Loando Mboyo. A l'ordre du Jour, une discussion en terme des aspects techniques liés au financement et à la gestion des intérêts de l'Etat Congolais concernant « FATSHI CITY », projet reçu de son Excellence Monsieur le Président de la RDC Félix Antoine Tshisekedi Tshilombo qui consiste en la délocalisation des camps militaires et le réaménagement de ces derniers par des cités modernes ouvertes au grand public. "En suivant la vision du chef de l'Etat: le Peuple d'abord, les entreprises du Portefeuille de l'Etat se sont ardemment mises à contribution pour maitriser et développer leurs secteurs respectifs; et les télécommunications, à travers la Société Congolaise des Postes et Télécommunications, SCPT en sigle, jouent un rôle crucial. En la date du Mercredi 14 Juillet 2021 a été signé un partenariat entre SCPT et LMS débouchant sur La réduction de la fracture numérique par l'extension des infrastructures de télécommunication, permettant de connecter les administrations, les villes, les institutions, les entreprises, les familles et surtout les intelligences.
Cependant, pour y parvenir, le ministère du Portefeuille ne peut compter que sur la remise en ordre de la marche des entreprises publiques. Ce qui signifie de faire du temps notre allié et pas notre adversaire. Si non pire, notre ennemi », a déclaré Adèle Kahinda devant les PCA et DG des entreprises publiques. Par la même occasion, elle a appelé les PCA et DG des entreprises publiques à bannir la corruption, la concussion, le népotisme et tous les maux semblables qui ont freiné le développement des entreprises publiques. Elle leur a demandé de lui faire parvenir les états des lieux de leurs entreprises d'ici le 20 mai. La ministre d'État, ministre du Portefeuille a en outre annoncé la tenue dans les prochains mois des travaux de la revue stratégique des entreprises publiques. « Je vous annonce la tenue dans les prochains mois des travaux de la revue stratégique des entreprises publiques. Travaux qui permettront de bâtir des contrats de performance ou contrat par objectif assorti de feuille de route appelée à éclairer la marche de vos entreprises publiques.
Et pourtant, on aurait voulu voir le président Tshisekedi peser de tout son poids pour avoir le monopole et l'autonomie de ses décisions, dans sa philosophie du travail, au lieu de nous offrir ce spectacle désolant de tergiversations. En laissant longtemps planer cette dichotomie, il finira par remettre davantage en cause sa légitimité sur le plan national qu'international. Yves Nsiala, analyste politique /rédaction
En vous remerciant d'avance, Maryy 03/08/2008, 12h09 #2 Membre émérite Salut Maryy et le forum J'ai juste jeté un cil rapidement ReDim Preserve tabgas(itab, 2) Les tableau ne peuvent être redimensionnés que sur le dernier indice (voir l'aide) Le problème d'erreurs est qu'on a pas les données, nous! Donc, au minimum, il faut donner la ligne de code en erreur! Imagine simplement que le nom de l'onglet soit "Codes ": tu auras la même erreur. A+ 03/08/2008, 12h25 #3 Effectivement, je n'ai plus cette erreur avec ton indication. Mais en fait je voudrais bien donner la ligne de code en erreur mais il ne m'en indique pas. Aucune ligne n'apparaît en jaune. J'ai conclu que mon problème se situait sur les tableaux après quelques tests en fait. En maintenant, même topo sauf que c'est l'erreur "erreur définie par l'application ou par l'objet". Toujours pas de ligne en surbrillance. VBA, l'indice n'appartient pas à la sélection | Excel-Downloads. Bon, je revoie mon algo et je reviens vers vous si ça coince. Merci pour ton aide! 03/08/2008, 13h39 #4 Pour ce coup-ci je me débrouille sans faire de tableaux car j'aimerais avoir cette appli prête pour demain mais je me remettrai la tête dans les tableaux de valeurs prochainement, c'est quand même intéressant à maîtriser à mon sens.
Pourquoi? Il est fort probable que la cause du problème est que votre collègue n'a pas les mêmes options d'affichage des fichiers dans l'explorateur de documents de Windows. Pour le vérifier, aller dans les propriétés d'affichages des répertoires dans l'explorateur Windows. Avec Windows 7: Organize | Folder and Search Options | View. Vba l indice n appartient pas à la sélection une. Vérifier si l'option " HIde extension for known file types " est cochée ou non. Si l'option n'est pas cochée, les extensions de fichiers apparaissent dans l'explorateur Windows pour les fichiers Excel. Notre macro de départ ne fonctionne pas parce qu'il n'y a pas de classeur nommé simplement " Classeur_Source ". Par contre, si l'option est cochée, les extensions de fichier n'apparaissent pas. Il est ainsi possible de faire référence à notre fichier AVEC ou SANS mettre l'extension du fichier dans notre code VBA. C'est pourquoi il est fortement recommandé de toujours mettre l'extension du fichier dans vos code VBA. Il s'agit d'une bonne habitude à prendre afin d'éviter ce genre de problème dans le futur.
S'il est possible que l'extension de votre fichier change (, xlsx, ), il faudra alors prévoir le coup dans la macro. Supposons que nous voulons afficher la valeur de la cellule A1 du premier onglet du Classeur_Source mais que nous ne connaissons pas l'extension du fichier car il pourrait être changé par un utilisateur. Nous pourrions coder ainsi: Sub Exemple() Dim wb As Workbook On Error Resume Next Set wb = Workbooks(« Classeur_Source. xlsm «) If wb Is Nothing Then Set wb = Workbooks(« Classeur_Source. Erreur 9 - L'indice n'appartient pas à la sélection. xlsx «) ElseIf wb Is Nothing Then Set wb = Workbooks(« Classeur_Source. xls «) End If MsgBox (1)(1, 1) End Sub Il pourrait également y avoir la situation où 3 fichiers portent le même nom: mais leur extension est différente: Supposons que nous voulons afficher la valeur de la cellule A1 du premier onglet du Classeur_Source. Si les 3 fichiers sont ouverts en même temps et que nous ne spécifions pas l'extension du fichier dans la macro, celle-ci retournera toujours la valeur du fichier "" car c'est le premier selon l'ordre alphabétique.
#1 Bonsoir, pouvez vous m'aidez à résoudre le problème de de code qui renvoie ce message d'erreur: l'indice n'appartient pas à la sélection merci Dans un classeur, avec une feuille nommée "mafeuille" Sub essai() Dim test() As String Sheets("mafeuille"). Activate For j = 1 To Sheets("mafeuille")("A2")(xlDown) For i = 1 To Sheets("mafeuille")("A2")(xlDown) If Cells(i, 15) = 1 Then test(j) = Sheets("mafeuille")(i, 1) MsgBox test(j) End If Next i Next j End Sub #2 Re: probleme vba: l'indice n'appartient pas à la selection Bonjour 1°/Quand tu utilises une variable tableau (test()), il faut préciser sa dimension. 2°/Pour devancer ton prochain problème, quand tu emboîtes deux boucles for, tu vas non pas avoir j, i 0, 0 1, 1 2, 2... N, N mais 1, 0 2, 0... N, 0 N, 1 N, 2... Il faut donc remanier ta boucle. Avec les deux modifs Code: i = 0 Redim Preserve test(j - 1) i = i + 1 test(j - 1) = Sheets("mafeuille")(i, 1) (PS: le j-1 vient du fait qu'une variable tableau commence à 0) Je te laisse tester et revenir dire si ça marche Bonne chance #3 Bonjour le fil Bonjour le forum voila ce que j'ai testé (pourquoi deux boucles???? Visual Basic - Indice n'appartient pas à la sélection [Résolu] - Visual Basic 6. )