Discussion :

[thejrem]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RyuAutodidacte]

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é

[Theze]

Bonjour,

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

[unparia]

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.

[thejrem]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[unparia]

Ce sont quoi, ces variables (col A, col B, etc ... ainsi nommées (avec un espace ...) ?
Là, vraiment ...
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 !