Boucle selon une condition
Résolu
Ecam39
Messages postés
286
Date d'inscription
Statut
Membre
Dernière intervention
-
Ecam39 Messages postés 286 Date d'inscription Statut Membre Dernière intervention -
Ecam39 Messages postés 286 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite incrémenter des valeurs +1 si une condition est remplie :
Dans la colonne A, j'ai des valeurs
Dans la colonne B, j'inscris un petit "x"
Je souhaiterai faire une boucle, et dans cette boucle je rajoute un +1 sur les colonnes C et D.
Je souhaite incrémenter des valeurs +1 si une condition est remplie :
Dans la colonne A, j'ai des valeurs
Dans la colonne B, j'inscris un petit "x"
Je souhaiterai faire une boucle, et dans cette boucle je rajoute un +1 sur les colonnes C et D.
A voir également:
- Boucle selon une condition
- Excel cellule couleur si condition texte - Guide
- Excel condition ou - Guide
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
- Tv orange chargement en boucle ✓ - Forum TV & Vidéo
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
2 réponses
Bonjour,
démarrage en ligne 1 et "petite croix" avec x minuscule
à adapter à ton classeur: spécifications manquantes dans ta demande
Michel
démarrage en ligne 1 et "petite croix" avec x minuscule
à adapter à ton classeur: spécifications manquantes dans ta demande
Option Explicit
'----------
Sub incrementer_CD()
Dim Derlig As Integer, Lig As Integer
Application.ScreenUpdating = False
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
For Lig = 1 To Derlig
Cells(Lig, "C") = Cells(Lig, "C") + ((Cells(Lig, "A") <> "") * (Cells(Lig, "B") = "x"))
Cells(Lig, "D") = Cells(Lig, "D") + ((Cells(Lig, "A") <> "") * (Cells(Lig, "B") = "x"))
Next
End Sub
Michel
Merci pour ton aide
J'ai un peu cherché et j'ai aussi trouvé ça, si ça peut t'intéresser.
Les deux fonctionnes :
J'ai un peu cherché et j'ai aussi trouvé ça, si ça peut t'intéresser.
Les deux fonctionnes :
Sub selection()
Dim selection As Long
For selection = 1 To 30
If Cells(selection, 7) = "x" Then
Cells(selection, 5) = Cells(selection, 5) + 1
Cells(selection, 6) = Cells(selection, 6) + 1
End If
Next
End Sub