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

Fermé

homere26 Messages postés 4 Date d'inscription jeudi 6 octobre 2016 Statut Membre Dernière intervention 6 octobre 2016 - 6 oct. 2016 à 10:22
homere26 Messages postés 4 Date d'inscription jeudi 6 octobre 2016 Statut Membre Dernière intervention 6 octobre 2016 - 6 oct. 2016 à 18:42

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

A voir également:

Ajouter 5 aux cellles G sir cellules D et G ne sont pas vides
Formule excel pour additionner plusieurs cellules - Guide
G hub ne se lance pas - Forum Logiciels
Ajouter un compte gmail - Guide
Verrouiller cellules excel - Guide
Ajouter signature word - Guide

3 réponses

Réponse 1 / 3

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
6 oct. 2016 à 11:00

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+

Réponse 2 / 3

homere26 Messages postés 4 Date d'inscription jeudi 6 octobre 2016 Statut Membre Dernière intervention 6 octobre 2016
6 oct. 2016 à 14:07

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.

Réponse 3 / 3

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
6 oct. 2016 à 15:40

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 Cel
End Sub

A+

homere26 Messages postés 4 Date d'inscription jeudi 6 octobre 2016 Statut Membre Dernière intervention 6 octobre 2016
6 oct. 2016 à 18:14

Merci Cyrus,
Je vais tester la macro.
Bonne soirée

homere26 Messages postés 4 Date d'inscription jeudi 6 octobre 2016 Statut Membre Dernière intervention 6 octobre 2016 > homere26 Messages postés 4 Date d'inscription jeudi 6 octobre 2016 Statut Membre Dernière intervention 6 octobre 2016
6 oct. 2016 à 18:42

Salut Cyrus,
Je viens de tester la macro : elle fonctionne à la perfection. C'est exactement ce que je cherchais !
Je te remercie sincèrement pour cette aide rapide et efficace.
Question résolue.

Discussions similaires

Problème avec logitech g hub

Logitech G hub loop infini

montre g shock

Nettoyer une base de données avec une liste

Achat d'un casque Logitec x pro et impossible de faire fonctionner le micro