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
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
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
- Logitech g pro x micro ne marche pas ✓ - Forum Matériel & Système
- Verrouiller cellules excel - Guide
- Ajouter un compte gmail - Guide
3 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
6 oct. 2016 à 11:00
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+
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
Messages postés
4
Date d'inscription
jeudi 6 octobre 2016
Statut
Membre
Dernière intervention
6 octobre 2016
6 oct. 2016 à 14:07
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.
S'il n'y a pas de solution VBA j'en resterai au collage spécial.
Merci encore et bonne journée.
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
6 oct. 2016 à 15:40
6 oct. 2016 à 15:40
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+
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
6 oct. 2016 à 18:14
Merci Cyrus,
Je vais tester la macro.
Bonne soirée
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
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.
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.