PB : comment lister des informations à la suite dans une cellule?
3 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
omar_2891@hotmail.com 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)
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
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
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.
<omar_2891@hotmail.com> wrote in message news:1155124436.489209.72580@m73g2000cwd.googlegroups.com...
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
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