Ajouter 5 aux cellles G sir cellules D et G ne sont pas vides
homere26
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
homere26 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
homere26 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Ajouter 5 aux cellles G sir cellules D et G ne sont pas vides
- Logitech g pro x micro ne marche pas - Forum Casque et écouteurs
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Micro logitech g pro x marche pas - Forum Matériel & Système
- Logitech g hub ne se lance pas - Forum Logiciels
3 réponses
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+
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+
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.
S'il n'y a pas de solution VBA j'en resterai au collage spécial.
Merci encore et bonne journée.
Bon, alors une macro à tester :
A+
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 Cel
End Sub
A+