Microsoft 365 Boucle avec deux conditions VBA

  • Initiateur de la discussion Initiateur de la discussion alban75000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alban75000

XLDnaute Nouveau
Bonjour ,
j'ai deux colonnes que je veux passer en revue et si les conditions match ça modifié la cellule concerné .

Dim c As Range
For Each c In Range("A1:A100")
If c.Value <> "" Then c.Value = c.Value + Range("F1")

En plus de la première conditions j'aimerais en rajouter une c'est que dans la colonne B la cellule soit = à A

Ci-joint un fichier test

Merci d'avance
 

Pièces jointes

Bonjour Alban, et bienvenu sur XLD,
Un essai en PJ avec :
VB:
Sub calcul()
    Dim c As Range
    For Each c In Range("A1:A100")
        If c.Value <> "" And Cells(c.Row, "B") = "A" Then c.Value = c.Value + Range("F1")
    Next c
End Sub
 

Pièces jointes

Bonjour ,
j'ai deux colonnes que je veux passer en revue et si les conditions match ça modifié la cellule concerné .

Dim c As Range
For Each c In Range("A1:A100")
If c.Value <> "" Then c.Value = c.Value + Range("F1")

En plus de la première conditions j'aimerais en rajouter une c'est que dans la colonne B la cellule soit = à A

Ci-joint un fichier test

Merci d'avance
Bonjour,
Sans plus, je dirai....
VB:
If c.Value <> "" And c.Offset(, 1) = "A" Then c.Value = c.Value + Range("F1")
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
117
Réponses
10
Affichages
444
Réponses
4
Affichages
195
Retour