Ajouter 5 aux cellles G sir cellules D et G ne sont pas vides

Question

Bonjour à toutes et tous,
 Je cherche de l’aide pour résoudre le problème suivant.
 J'utilise  Office 2003.
 J’ai une feuille de classeur Excel avec des colonnes de A à I.
Je cherche le code VBA qui me permettrait, si les cellules des colonnes D et  G ne sont pas vides, d’ajouter 5 au montant des cellules de la colonne G, puis d’afficher la feuille complète.
 Merci d’avance à ceux qui pourront examiner la question.
Homere26

Gyrus · Answer

Bonjour, Pourquoi utiliser VBA ? Tu peux ajouter une colonne avec la formule =SI(ET(D1<>"";G1<>"");G1+5;G1) puis faire un copier spécial valeurs. A+

homere26 · Answer

Merci Cyrus pour ta réponse rapide...mais j'utilise actuellement le collage spécial et j'aurai aimé le remplacer par un code VBA pour l'incorporer dans une macro.
S'il n'y a pas de solution VBA j'en resterai au collage spécial.
Merci encore et bonne journée.

Gyrus · Answer

Bon, alors une macro à tester : Sub Test()Dim Cel As Range For Each Cel In Range("G1", Range("G" & Rows.Count).End(xlUp)) If Cel.Offset(, -3).Value <> "" And Cel.Value <> "" Then Cel = Cel.Value + 5 Next CelEnd Sub A+

Ajouter 5 aux cellles G sir cellules D et G ne sont pas vides

3 réponses

Votre réponse

Discussions similaires

Newsletters