Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

PB : comment lister des informations à la suite dans une cellule?

3 réponses
Avatar
omar_2891
Bonjour,

J'ai un script qui me permet d'=E9crire une liste de r=E9f=E9rence, pour
lesquelles il y a la mention "ALERTE", dans une case. Or mon script
n'=E9crit que la derniere r=E9f=E9rence?
Pourriez vous m'indiquer ce qui cloche dans mon script?
Merci d'avance!

Sub Message()

Dim Ligne As Long
For Ligne =3D 2 To 200
If Cells(Ligne, 1) Like "ALERTE" Then
Cells(2, 4) =3D Cells(Ligne, 2)
End If
Cells(2, 4) =3D Cells(2, 4) & vbLf
Next Ligne
End Sub

Omar

3 réponses

Avatar
Vincent Guichard
a écrit :
Bonjour,

J'ai un script qui me permet d'écrire une liste de référence, pour
lesquelles il y a la mention "ALERTE", dans une case. Or mon script
n'écrit que la derniere référence?
Pourriez vous m'indiquer ce qui cloche dans mon script?
Merci d'avance!

Sub Message()

Dim Ligne As Long
For Ligne = 2 To 200
If Cells(Ligne, 1) Like "ALERTE" Then
Cells(2, 4) = Cells(Ligne, 2)
End If
Cells(2, 4) = Cells(2, 4) & vbLf
Next Ligne
End Sub

Omar



Bonjour,

La ligne
Cells(2, 4) = Cells(Ligne, 2)
ne devrait-elle pas être
Cells(2, 4) = Cells(2, 4) & Cells(Ligne, 2)


Vincent Guichard
Avatar
Pascal B.
Salut,

Et comme ça:

For Ligne = 2 To 200
If Cells(Ligne, 1) Like "ALERTE" Then
Cells(2, 4) = Cells(2, 4) & Cells(Ligne, 2) & vbLF
End If
Next Ligne


Cordialement
Pascal B.



wrote in message news:
Bonjour,

J'ai un script qui me permet d'écrire une liste de référence, pour
lesquelles il y a la mention "ALERTE", dans une case. Or mon script
n'écrit que la derniere référence?
Pourriez vous m'indiquer ce qui cloche dans mon script?
Merci d'avance!

Sub Message()

Dim Ligne As Long
For Ligne = 2 To 200
If Cells(Ligne, 1) Like "ALERTE" Then
Cells(2, 4) = Cells(Ligne, 2)
End If
Cells(2, 4) = Cells(2, 4) & vbLf
Next Ligne
End Sub

Omar
Avatar
omar_2891
Merci Pascal, ca marche tres bien!

Omar