Bonjour,
Je souhaite creer une boucle pour simplifié mon code mais je bloque.
Code original :
If Sheets("Perception").Range("E5") > 0 Then
Sheets("Suivi").Range("A" & Lig) = Sheets("Perception").Range("C3") 'N°Perception
Sheets("Suivi").Range("B" & Lig) = Sheets("Perception").Range("C1") 'Nom Instance
Sheets("Suivi").Range("C" & Lig) = Sheets("Perception").Range("C2") 'Date
Sheets("Suivi").Range("D" & Lig) = Sheets("Perception").Range("A5") 'ID
Sheets("Suivi").Range("E" & Lig) = Sheets("Perception").Range("B5") 'RA
Sheets("Suivi").Range("F" & Lig) = Sheets("Perception").Range("C5") 'DESIGNATION
Sheets("Suivi").Range("G" & Lig) = Sheets("Perception").Range("E5") 'QT
Sheets("Suivi").Range("H" & Lig) = Environ("UserName") 'Utilisateur
Sheets("Suivi").Range("I" & Lig) = "PERCEPTION(SORTIE)" 'Type
Lig = Lig + 1
End If
If Sheets("Perception").Range("E6") > 0 Then
Sheets("Suivi").Range("A" & Lig) = Sheets("Perception").Range("C3") 'N°Perception
Sheets("Suivi").Range("B" & Lig) = Sheets("Perception").Range("C1") 'Nom Instance
Sheets("Suivi").Range("C" & Lig) = Sheets("Perception").Range("C2") 'Date
Sheets("Suivi").Range("D" & Lig) = Sheets("Perception").Range("A6") 'ID
Sheets("Suivi").Range("E" & Lig) = Sheets("Perception").Range("B6") 'RA
Sheets("Suivi").Range("F" & Lig) = Sheets("Perception").Range("C6") 'DESIGNATION
Sheets("Suivi").Range("G" & Lig) = Sheets("Perception").Range("E6") 'QT
Sheets("Suivi").Range("H" & Lig) = Environ("UserName") 'Utilisateur
Sheets("Suivi").Range("I" & Lig) = "PERCEPTION(SORTIE)" 'Type
Lig = Lig + 1
End If
Etc.... sur une centaine de lignes. J ai pensé a :
Dim x As Long
x = 5
Do While Sheets("Perception").Range("E" & x) > 0
Sheets("Suivi").Range("A" & Lig) = Sheets("Perception").Range("C3") 'N°Perception
Sheets("Suivi").Range("B" & Lig) = Sheets("Perception").Range("C1") 'Nom Instance
Sheets("Suivi").Range("C" & Lig) = Sheets("Perception").Range("C2") 'Date
Sheets("Suivi").Range("D" & Lig) = Sheets("Perception").Range("A" & x) 'ID
Sheets("Suivi").Range("E" & Lig) = Sheets("Perception").Range("B" & x) 'RA
Sheets("Suivi").Range("F" & Lig) = Sheets("Perception").Range("C" & x) 'DESIGNATION
Sheets("Suivi").Range("G" & Lig) = Sheets("Perception").Range("E" & x) 'QT
Sheets("Suivi").Range("H" & Lig) = Environ("UserName") 'Utilisateur
Sheets("Suivi").Range("I" & Lig) = "PERCEPTION(SORTIE)" 'Type
x = x + 1
Lig = Lig + 1
Loop
Le soucis est que si la premiere cellule E5 est vide cela ne copie pas les valeur des autres cellules remplie E6 E7 etc...
Quelqu un voit il d'ou vient le probleme ?
Merci
Je souhaite creer une boucle pour simplifié mon code mais je bloque.
Code original :
If Sheets("Perception").Range("E5") > 0 Then
Sheets("Suivi").Range("A" & Lig) = Sheets("Perception").Range("C3") 'N°Perception
Sheets("Suivi").Range("B" & Lig) = Sheets("Perception").Range("C1") 'Nom Instance
Sheets("Suivi").Range("C" & Lig) = Sheets("Perception").Range("C2") 'Date
Sheets("Suivi").Range("D" & Lig) = Sheets("Perception").Range("A5") 'ID
Sheets("Suivi").Range("E" & Lig) = Sheets("Perception").Range("B5") 'RA
Sheets("Suivi").Range("F" & Lig) = Sheets("Perception").Range("C5") 'DESIGNATION
Sheets("Suivi").Range("G" & Lig) = Sheets("Perception").Range("E5") 'QT
Sheets("Suivi").Range("H" & Lig) = Environ("UserName") 'Utilisateur
Sheets("Suivi").Range("I" & Lig) = "PERCEPTION(SORTIE)" 'Type
Lig = Lig + 1
End If
If Sheets("Perception").Range("E6") > 0 Then
Sheets("Suivi").Range("A" & Lig) = Sheets("Perception").Range("C3") 'N°Perception
Sheets("Suivi").Range("B" & Lig) = Sheets("Perception").Range("C1") 'Nom Instance
Sheets("Suivi").Range("C" & Lig) = Sheets("Perception").Range("C2") 'Date
Sheets("Suivi").Range("D" & Lig) = Sheets("Perception").Range("A6") 'ID
Sheets("Suivi").Range("E" & Lig) = Sheets("Perception").Range("B6") 'RA
Sheets("Suivi").Range("F" & Lig) = Sheets("Perception").Range("C6") 'DESIGNATION
Sheets("Suivi").Range("G" & Lig) = Sheets("Perception").Range("E6") 'QT
Sheets("Suivi").Range("H" & Lig) = Environ("UserName") 'Utilisateur
Sheets("Suivi").Range("I" & Lig) = "PERCEPTION(SORTIE)" 'Type
Lig = Lig + 1
End If
Etc.... sur une centaine de lignes. J ai pensé a :
Dim x As Long
x = 5
Do While Sheets("Perception").Range("E" & x) > 0
Sheets("Suivi").Range("A" & Lig) = Sheets("Perception").Range("C3") 'N°Perception
Sheets("Suivi").Range("B" & Lig) = Sheets("Perception").Range("C1") 'Nom Instance
Sheets("Suivi").Range("C" & Lig) = Sheets("Perception").Range("C2") 'Date
Sheets("Suivi").Range("D" & Lig) = Sheets("Perception").Range("A" & x) 'ID
Sheets("Suivi").Range("E" & Lig) = Sheets("Perception").Range("B" & x) 'RA
Sheets("Suivi").Range("F" & Lig) = Sheets("Perception").Range("C" & x) 'DESIGNATION
Sheets("Suivi").Range("G" & Lig) = Sheets("Perception").Range("E" & x) 'QT
Sheets("Suivi").Range("H" & Lig) = Environ("UserName") 'Utilisateur
Sheets("Suivi").Range("I" & Lig) = "PERCEPTION(SORTIE)" 'Type
x = x + 1
Lig = Lig + 1
Loop
Le soucis est que si la premiere cellule E5 est vide cela ne copie pas les valeur des autres cellules remplie E6 E7 etc...
Quelqu un voit il d'ou vient le probleme ?
Merci