Macro Excel
Résolu
Abe
-
Abe -
Abe -
Bonjour,
je souhaiterais faire une macro qui incrémente, à l'action d'un bouton, la valeur de chaque cellules de la ligne 14 ssi la valeur de la ligne 13 correspondante (I13 avec I14, J13 avec C14, etc etc) est vrai.
Je suppose que c'est super simple mais en ayant jamais fait, je sais pas comment ^^'
merci d'avance
je souhaiterais faire une macro qui incrémente, à l'action d'un bouton, la valeur de chaque cellules de la ligne 14 ssi la valeur de la ligne 13 correspondante (I13 avec I14, J13 avec C14, etc etc) est vrai.
Je suppose que c'est super simple mais en ayant jamais fait, je sais pas comment ^^'
merci d'avance
A voir également:
- Macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
6 réponses
VRAI est une valeur logique ou du texte ?
I13 avec I14, J13 avec C14, etc etc
J13 avec C14 ??? t'es sûr ?
etc va jusqu'où ?
I13 avec I14, J13 avec C14, etc etc
J13 avec C14 ??? t'es sûr ?
etc va jusqu'où ?
erf .. J13 avec J14 ^^
c'est possible d'en avoir une centaine ? ( donc de 'I' jusqu'à 'DD') [sinon bah 50 au moins :) ]
ET la valeur de la ligne 13 est obtenue en cochant ou non une case à cocher (ca écrit VRAI quand c'ets cocher et FAUX quand ce ne l'est pas, c'est donc du texte)
c'est possible d'en avoir une centaine ? ( donc de 'I' jusqu'à 'DD') [sinon bah 50 au moins :) ]
ET la valeur de la ligne 13 est obtenue en cochant ou non une case à cocher (ca écrit VRAI quand c'ets cocher et FAUX quand ce ne l'est pas, c'est donc du texte)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
re,
valable sur la ligne 13 quelque soit le nombre de colonnes à partir de la colonne I
remarque: la valeur donnée dans la cellule liée est une valeur logique
valable sur la ligne 13 quelque soit le nombre de colonnes à partir de la colonne I
Sub incrémenter_si_vrai() dercol = Cells(13, Cells.Columns.Count).End(xlToLeft).Column Application.ScreenUpdating = False For col = 9 To dercol If Cells(13, col) Then Cells(14, col) = Cells(14, col) + 1 Next End Sub
remarque: la valeur donnée dans la cellule liée est une valeur logique