J'ai cr=E9er un code qui me permet d'afficher dans une cellule des
donn=E9es concernant une anomalie. Or le code que j'ai r=E9p=E8te =E0
chaque fois les valeurs pr=E9c=E9dentes en plus des nouvelles.
J'aimerai en fait que dans les cellules "Cells(Ligne, 4)" apparaissent
les valeurs "Range("a" & Ligne) & Cells(4, Colonne)" de la ligne
correspondante et non ceux des lignes pr=E9c=E9dentes.
Pourriez vous m'aider =E0 d=E9nicher le truc qui cloche dans mon code!
Merci d'avance.
Omar.
Sub ALERTE()
Dim Colonne As Long
Dim Ligne As Long
For Ligne =3D 5 To 61
For Colonne =3D 7 To 206
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then
Cells(Ligne, 3) =3D "yes"
Msg =3D Msg & Range("a" & Ligne) & Cells(4, Colonne)
Cells(Ligne, 4) =3D Msg
ElseIf Cells(Ligne, Colonne) < 1.33 And Cells(Ligne,
Colonne) > 0 Then
Cells(Ligne, 3) =3D "no"
End If
Next Colonne
Next Ligne
=20
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
Youky
Msg = Range("a" & Ligne) & Cells(4, Colonne) Cells(Ligne, 4) = Msg si tu laisses msg=msg &..........tout s'ajoute à la suite ou encore Cells(Ligne, 4) = Range("a" & Ligne) & Cells(4, Colonne) si j'ai bien compris Youky
Msg = Range("a" & Ligne) & Cells(4, Colonne)
Cells(Ligne, 4) = Msg
si tu laisses msg=msg &..........tout s'ajoute à la suite
ou encore
Cells(Ligne, 4) = Range("a" & Ligne) & Cells(4, Colonne)
si j'ai bien compris
Youky
Msg = Range("a" & Ligne) & Cells(4, Colonne) Cells(Ligne, 4) = Msg si tu laisses msg=msg &..........tout s'ajoute à la suite ou encore Cells(Ligne, 4) = Range("a" & Ligne) & Cells(4, Colonne) si j'ai bien compris Youky
omar_2891
J'ai déjà essayé cette solution, mais le pb avec cette solution c'est que si ma ligne contient plusieurs valeurs a annoncer en cellule "Cells(Ligne, 4)", VBA n'indique que le derniere!!!
Tu pense savoir d'ou ca vient?
Omar
J'ai déjà essayé cette solution, mais le pb avec cette solution
c'est que si ma ligne contient plusieurs valeurs a annoncer en cellule
"Cells(Ligne, 4)", VBA n'indique que le derniere!!!
J'ai déjà essayé cette solution, mais le pb avec cette solution c'est que si ma ligne contient plusieurs valeurs a annoncer en cellule "Cells(Ligne, 4)", VBA n'indique que le derniere!!!