Indice n'appartient pas a la selection

Bonjour,
je souhaite créer une macro afin de généré un fichier formaté avec les info d'une ligne d'un tableau.

en entré je lui donne juste le numéro de la ligne.

Pour le moment je bloque sur une ligne

Code:

---

1 2 3 4 5

Dim c As Long c = 0 c = Sheets("Feuille 1").Range("H6").Value // récupéré le numéro de la ligne donné   ref_encours = Sheets("feuille 2").Range("B" & c).Value // récupère la valeur de la ligne intéressé. blocage Excel

---

la variable C prend bien la valeur de ma ligne mais ref_encours est vide (code erreur l'indice n'appartient pas a la sélection)

Pouvez-vous m'aider svp

Merci d’avance pour votre temps.
Cdt

Bonsoir,

PS : pour q'un code soit lisible dans le post, utiliser le bouton # afin de mettre le code entre les 2 balises Code (cf. ma signature il y a un exemple) => modifier le message

Assure toi déjà de coder avec "Option Explicit" tout en haut de ton module afin de ne pas oublier de déclarer des variables ("Option Explicit" s'active dans les paramètres afin de l'avoir par défaut)
Sinon vérifier que le nom des feuilles soit bien orthographié

Bonjour,

A tout hasard,as-tu bien une feuille qui se nomme "feuille 2" ?

Bonjour
et montre s'il te plait un copié/collé rigoureux du code réellement écrit/
Si ce que tu as montré de ce code est bien dans ce cas, je ne comprends alors pas la nécessité d'initialiser la variable c à 0 pour lui donner une autre valeur immédiatement après ! C'est ce "détail", qui me donne à penser que le code montré n'est peut-être pas le code réel écrit dans ton application.

bonjour,
dsl pour la non propreté de mon code.
alors oui j'ai bien une feuille 1 BASE et Planing ....
oui le C=0 ne sert plus a rien car j'ai modifier plusieurs fois mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

'col A = Sheets("Feuille1").Range("H6").Value Dim c As Long 'c = 0 c = Sheets("Feuille1").Range("H6").Value 'c = Sheets("Planing").Range("B2:B60000").Find(col A).Row // Ca bloqué aussi col A = Sheets("Planing").Range("B" & c).Value //c'est la que ça bloque col B = Sheets("BASE").Range("H2").Value col C = Sheets("Planing").Range("C" & c).Value col E = Sheets("Planing").Range("D" & c).Value col F = Sheets("Planing").Range("H" & c).Value col I = Sheets("Planing").Range("E" & c).Value col J = Sheets("Planing").Range("F" & c).Value col K = Sheets("Planing").Range("G" & c).Value col L = Sheets("Planing").Range("I" & c).Value col M = Sheets("Planing").Range("K" & c).Value col N = Sheets("Planing").Range("J" & c).Value   Workbooks.Open Filename:= _ "c:\user\MER\xxxx\xxxxxxxxx.xlsx", UpdateLinks:=0 Sheets("Feuille1").Range("B5").Value = col B Sheets("Feuille1").Range("E5").Value = Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Format(Date, "yyyy") Sheets("Feuille1").Range("B6").Value = col A Sheets("Feuille1").Range("E6").Value = col C Sheets("Feuille1").Range("B7").Value = col D Sheets("Feuille1").Range("E7").Value = col E Sheets("Feuille1").Range("E8").Value = col F   ActiveWorkbook.SaveAs Filename:= _ "D:\Users\xxx\Desktop\ROE\macro\xxxxx" & Format(Date, "ddmmyyyy") & "_" & colA & "_" & lien & ".xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False

---

en gros je recherche a récupérer une ligne C d'un tableau pour remplir un fichier formaté et l’enregistré.
et deuxième étape testé des mots Clef (OK, NOK) sur une cellule afin de remplir des checkbox sur ce fichier formaté.

j’espère que c'est plus compréhensible.

Ce sont quoi, ces variables (col A, col B, etc ... ainsi nommées (avec un espace ...) ?
Là, vraiment ... :zzz:
Et il aura fallu attendre ton vrai code pour cela !

EDIT : si tu veux te mettre au développement, commence AU MOINS par la lecture de la rubrique Règles d'affectation de noms Visual Basic
de ton aide VBA interne. C'est un minimum !

j'ai renommé toute mes variables afin de gardé la confidentialité du projet final. mais non effectivement mes variables n'ont pas espace
je te le refait sans les espaces.

mais mon blocage est que je ne comprend pas pourquoi ceci bloque => col_A = Sheets("Planing").Range("B" & c).Value

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

'col_A = Sheets("Feuille1").Range("H6").Value Dim c As Long 'c = 0 c = Sheets("Feuille1").Range("H6").Value 'c = Sheets("Planing").Range("B2:B60000").Find(col_A).Row // Ca bloqué aussi col_A = Sheets("Planing").Range("B" & c).Value //c'est la que ça bloque col_B = Sheets("BASE").Range("H2").Value col_C = Sheets("Planing").Range("C" & c).Value col_E = Sheets("Planing").Range("D" & c).Value col_F = Sheets("Planing").Range("H" & c).Value col_I = Sheets("Planing").Range("E" & c).Value col_J = Sheets("Planing").Range("F" & c).Value col_K = Sheets("Planing").Range("G" & c).Value col_L = Sheets("Planing").Range("I" & c).Value col_M = Sheets("Planing").Range("K" & c).Value col_N = Sheets("Planing").Range("J" & c).Value   Workbooks.Open Filename:= _ "c:\user\MER\xxxx\xxxxxxxxx.xlsx", UpdateLinks:=0 Sheets("Feuille1").Range("B5").Value = col_B Sheets("Feuille1").Range("E5").Value = Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Format(Date, "yyyy") Sheets("Feuille1").Range("B6").Value = col_A Sheets("Feuille1").Range("E6").Value = col_C Sheets("Feuille1").Range("B7").Value = col_D Sheets("Feuille1").Range("E7").Value = col_E Sheets("Feuille1").Range("E8").Value = col_F   ActiveWorkbook.SaveAs Filename:= _ "D:\Users\xxx\Desktop\ROE\macro\xxxxxx_" & Format(Date, "ddmmyyyy") & "_" & colA & "_" & lien & ".xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False

---

Bonsoir,

Si tu avais écouté le conseil en post #2 en mettant Option Explicit en début de module tu aurais surement trouvé la réponse par toi même.

Exemple simple :

Code:

---

1 2 3 4 5 6

Option Explicit Sub toto()   Col A = 5   End Sub

---

en effectuant le code pas à pas tu aurais eu ce message :

Citation:

---

Erreur de compilation:
Variable non définie

---

Maintenant si tu essais de déclarer ta variable comme ceci :

Code:

---

1 2 3 4 5 6 7

Option Explicit Sub toto() Dim Col A as Integer   Col A = 5   End Sub

---

en effectuant le code pas à pas tu aurais eu ce message :

Citation:

---

Citation:

---

Erreur de compilation:
Erreur de syntaxe

---

---

c'est quand même parlant, l'erreur indiqué par le code quand tu l'effectues montre que celui-ci est mal écris

Maintenant en cherchant bien le problème et en vérifiant l'écriture des tes variables afin que celles-ci soit écrites correctement
tu pourras les vérifier en pas à pas dans la fenêtre des variables locale ou avec un MsgBox ou encore avec un Debug.Print
Exemple simple :

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Sub toto() Dim ColA As Integer   ColA = 5 MsgBox ColA   End Sub

---

Mais comme vivement conseiller par @unparia il serait sage que tu commence par le début (rubrique Règles d'affectation de noms Visual Basic) , ou la lecture des différents tutos/explications se trouvant dans la Faq
Il y a tout ce qu'il faut.

je te conseille vivement aussi de coder avec Option Explicit

Edit : on s'est croisé - en faisant des tests de simple comme je viens de te le montrer (mais adapter à ton code) tu pourrais trouver la réponse
Suit ton code en pas à pas avec la fenêtre des variables locales

Edit 2 : dans ton code met ton curseur sur Find et appui sur F1 afin d'avoir l'aide vba et lit, test et comprends comment ça marche …

Merci de votre aide,
j'ai trouvé le souci.
le souci venait du tableau formaté et des noms des feuilles. (sans espace)

maintenant quelles sont les commandes permettant de gérer une checkbox. :)

Je t'avais demandé de montrer un copié/collé rigoureux de ton code, tel qu'écrit.
Nonobstant, tu as montré un nouveau code, qui n'était pas non plus un copié/collé rigoureux du tien.
Ce n'est pas sérieux.
Tu viens maintenant demander

Citation:

---

quelles sont les commandes permettant de gérer une checkbox

---

Ma réponse :
Tu ouvres ton aide interne VBA à la rubrique CheckBox, contrôle ->> tu lis -->> tu ouvres ensuite chacune des sous-rubriques, en cliquant, tour à tour, sur chaque élément de ceux qui sont offerts en lecture, à savoir :

Citation:

---

Propriétés Méthodes Événements

---

et tu lis chacun des éléments du menu qui s'ouvre à chaque clic !
te rends-tu au moins compte du caractère flou (plus que flou) de ta question ?