salut,
via macro
Colonne A contient des valeurs, une des valeurs=20
est"Acompte" je dois alors ajouter 100 a la cellule=20
correspondante en col B, le probl=E8me c'est que "Acompte"=20
est =E9cris parfois "Acompte", parfois "Acompte 2002"=20
parfois "AC", bref je sais que ca d=E9marre forc=E9ment par AC.
voici mon code qui ne marche pas
Sub Date100()
For i =3D 4 To 100
If Cells(i, 1).Value =3D "AC*" Then
Cells(i, 2).Value =3D cells(i,2).value+100
End If
Next i
End Sub
comment lui dire prend tout ce qui commence par "AC" ?
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
bon j'ai fait ça (les colonnes ont changé) Sub Date100()
For i = 1 To 6 If Left(Cells(i, 6).Value, 2) = "ac" Then Cells(i, 3).Value = 500 End If
Next i
End Sub
-----Message d'origine----- salut, via macro Colonne A contient des valeurs, une des valeurs est"Acompte" je dois alors ajouter 100 a la cellule correspondante en col B, le problème c'est que "Acompte" est écris parfois "Acompte", parfois "Acompte 2002" parfois "AC", bref je sais que ca démarre forcément par AC.
voici mon code qui ne marche pas
Sub Date100() For i = 4 To 100 If Cells(i, 1).Value = "AC*" Then Cells(i, 2).Value = cells(i,2).value+100 End If Next i End Sub
comment lui dire prend tout ce qui commence par "AC" ? .
bon j'ai fait ça (les colonnes ont changé)
Sub Date100()
For i = 1 To 6
If Left(Cells(i, 6).Value, 2) = "ac" Then
Cells(i, 3).Value = 500
End If
Next i
End Sub
-----Message d'origine-----
salut,
via macro
Colonne A contient des valeurs, une des valeurs
est"Acompte" je dois alors ajouter 100 a la cellule
correspondante en col B, le problème c'est que "Acompte"
est écris parfois "Acompte", parfois "Acompte 2002"
parfois "AC", bref je sais que ca démarre forcément par
AC.
voici mon code qui ne marche pas
Sub Date100()
For i = 4 To 100
If Cells(i, 1).Value = "AC*" Then
Cells(i, 2).Value = cells(i,2).value+100
End If
Next i
End Sub
comment lui dire prend tout ce qui commence par "AC" ?
.
bon j'ai fait ça (les colonnes ont changé) Sub Date100()
For i = 1 To 6 If Left(Cells(i, 6).Value, 2) = "ac" Then Cells(i, 3).Value = 500 End If
Next i
End Sub
-----Message d'origine----- salut, via macro Colonne A contient des valeurs, une des valeurs est"Acompte" je dois alors ajouter 100 a la cellule correspondante en col B, le problème c'est que "Acompte" est écris parfois "Acompte", parfois "Acompte 2002" parfois "AC", bref je sais que ca démarre forcément par AC.
voici mon code qui ne marche pas
Sub Date100() For i = 4 To 100 If Cells(i, 1).Value = "AC*" Then Cells(i, 2).Value = cells(i,2).value+100 End If Next i End Sub
comment lui dire prend tout ce qui commence par "AC" ? .
ru-th
Salut
une possibilité pour éviter la casse de la casse
If LCase(Cells(i, 1).Value) Like "ac*" Then
a+ rural thierry "boblebob" a écrit dans le message de news: 09ad01c39ee6$30a481a0$ salut, via macro Colonne A contient des valeurs, une des valeurs est"Acompte" je dois alors ajouter 100 a la cellule correspondante en col B, le problème c'est que "Acompte" est écris parfois "Acompte", parfois "Acompte 2002" parfois "AC", bref je sais que ca démarre forcément par AC. voici mon code qui ne marche pas
Sub Date100() For i = 4 To 100 If Cells(i, 1).Value = "AC*" Then Cells(i, 2).Value = cells(i,2).value+100 End If Next i End Sub
comment lui dire prend tout ce qui commence par "AC" ?
Salut
une possibilité pour éviter la casse de la casse
If LCase(Cells(i, 1).Value) Like "ac*" Then
a+
rural thierry
"boblebob" <boblebob@voila.fr> a écrit dans le message de news:
09ad01c39ee6$30a481a0$a501280a@phx.gbl...
salut,
via macro
Colonne A contient des valeurs, une des valeurs
est"Acompte" je dois alors ajouter 100 a la cellule
correspondante en col B, le problème c'est que "Acompte"
est écris parfois "Acompte", parfois "Acompte 2002"
parfois "AC", bref je sais que ca démarre forcément par AC.
voici mon code qui ne marche pas
Sub Date100()
For i = 4 To 100
If Cells(i, 1).Value = "AC*" Then
Cells(i, 2).Value = cells(i,2).value+100
End If
Next i
End Sub
comment lui dire prend tout ce qui commence par "AC" ?
a+ rural thierry "boblebob" a écrit dans le message de news: 09ad01c39ee6$30a481a0$ salut, via macro Colonne A contient des valeurs, une des valeurs est"Acompte" je dois alors ajouter 100 a la cellule correspondante en col B, le problème c'est que "Acompte" est écris parfois "Acompte", parfois "Acompte 2002" parfois "AC", bref je sais que ca démarre forcément par AC. voici mon code qui ne marche pas
Sub Date100() For i = 4 To 100 If Cells(i, 1).Value = "AC*" Then Cells(i, 2).Value = cells(i,2).value+100 End If Next i End Sub
comment lui dire prend tout ce qui commence par "AC" ?
