Bonjour à tous,
J'ai cherché de trouver s'il n'y avait pas une solution dans les différents postes précédents concernant le même probleme, mais je n'ai pas vraiment trouvé, j'ai tatoné mais j'ai reviens au même probleme.
Le code est sensé, regardé sur la feuille "cdt" si dans la colonne 13 (M) il trouve la valeur #N/A et si c'est le cas, copié la valeur des cases A, B, C et E.
Puis changé de feuille, passé sur "inject"
Créer une ligne en dessous de la derniere ou il y a quelques choses d'écrit
et inscrire les valeurs de A, B, C et E, dans les cases de la ligne insérer la valeur de A en j,A; B en j,B; E en j,D; et C en j,F
Puis recommencé pour un nouveau i et un nouveau j
Mais la il me dit: Next sans for pour le i
C'est surement du code grossier que j'utilise mais c'est le seul que je sais faire pour le moment, mais si vous voulez proposer autre chose, je prend, tant que le résultat du programme est le même.
Je suppose que c'est lié soit au for, soit au if, mais je ne saurai lequel..
Précision: je ne sais pas si c'est utile de le dire, mais j'ai écris mon code dans le module sur la feuille "inject"
D'avance merci pour l'aide.
J'ai cherché de trouver s'il n'y avait pas une solution dans les différents postes précédents concernant le même probleme, mais je n'ai pas vraiment trouvé, j'ai tatoné mais j'ai reviens au même probleme.
Le code est sensé, regardé sur la feuille "cdt" si dans la colonne 13 (M) il trouve la valeur #N/A et si c'est le cas, copié la valeur des cases A, B, C et E.
Puis changé de feuille, passé sur "inject"
Créer une ligne en dessous de la derniere ou il y a quelques choses d'écrit
et inscrire les valeurs de A, B, C et E, dans les cases de la ligne insérer la valeur de A en j,A; B en j,B; E en j,D; et C en j,F
Puis recommencé pour un nouveau i et un nouveau j
Mais la il me dit: Next sans for pour le i
C'est surement du code grossier que j'utilise mais c'est le seul que je sais faire pour le moment, mais si vous voulez proposer autre chose, je prend, tant que le résultat du programme est le même.
Je suppose que c'est lié soit au for, soit au if, mais je ne saurai lequel..
Précision: je ne sais pas si c'est utile de le dire, mais j'ai écris mon code dans le module sur la feuille "inject"
Code:
Sub entrée_ligne()
Dim i As Integer
Dim j As Integer
Dim A, B, C, E As String
' recherche des valeurs "#N/A" dans la feuille cdt
With Worksheets("cdt").Select
For i = 10 To 600
If Cells(i, 13) = "#N/A" Then
A = Cells(i, 1)
B = Cells(i, 2)
C = Cells(i, 3)
E = Cells(i, 5)
'ajout d'une ligne et insertion des valeurs dans différentes cases
With Worksheets("inject").Select
For j = 75 To 200
If Cells(j, 2) = "" Then Cells(j, 2).EntireRow.Insert
Cells(j, 1) = A
Cells(j, 2) = B
Cells(j, 4) = E
Cells(j, 6) = C
Next j
Next i
End With
End Sub
D'avance merci pour l'aide.
Dernière édition: