aurel
XLDnaute Junior
Re Bonjour a tous,
j'ai une boucle for each qui me trouve une valeur dans les plage I2 a I100,
si la valeur est trouver je veux la recuperer (sa c ok: c.value) et en meme temps reccuperer la valeur de la cellule qui suit (horizontalement).
ex: si ma boucle trouve la cellule I34 alors je veux reccuperer la valeur de I34 ainsi que J34 ( et pe etre aussi B34!!)
bout du code correspondant:
For Each c In Range("I2:I100")
If c <> "" Then
Worksheets("cas enregistrés").Select
Dim i As Integer
i = Range("A1").End(xlDown).Row + 1
Range("A" & i).Select
Range("A" & i & ":" & "D" & i).Insert Shift:=xlDown
Worksheets("cas enregistrés").Select
Range("A" & i).Select
Range("A" & i) = c.Value
le pb est la
bla bla bla
i = i + 1
End If
Next c
J'ai essayé pas mal de syntaxe, en vain et tj erreur 13
j'ai une boucle for each qui me trouve une valeur dans les plage I2 a I100,
si la valeur est trouver je veux la recuperer (sa c ok: c.value) et en meme temps reccuperer la valeur de la cellule qui suit (horizontalement).
ex: si ma boucle trouve la cellule I34 alors je veux reccuperer la valeur de I34 ainsi que J34 ( et pe etre aussi B34!!)
bout du code correspondant:
For Each c In Range("I2:I100")
If c <> "" Then
Worksheets("cas enregistrés").Select
Dim i As Integer
i = Range("A1").End(xlDown).Row + 1
Range("A" & i).Select
Range("A" & i & ":" & "D" & i).Insert Shift:=xlDown
Worksheets("cas enregistrés").Select
Range("A" & i).Select
Range("A" & i) = c.Value
le pb est la
bla bla bla
i = i + 1
End If
Next c
J'ai essayé pas mal de syntaxe, en vain et tj erreur 13
