VBA excel Copie valeur cellule avc condition

Résolu/Fermé
Signaler
-
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
-
Bonjour,

J'aurai besoin de votre aide pour un code VBA (je débute) sur excel 2003.

je vous explique :

j'ai un tableau avec différents types de données dans chaque colonne

colonne A = Code catégorie

colonne B ......

colonne D = Type activité (toujours valeur 1 ou 4)

je voudrai un code qui fasse une recherche sur la colonne D, et que si la valeur 4 est trouvée dans une cellule (par ex en D56), la cellule correspondante dans la mm ligne en colonne A (ex A56) prenne la valeur de la cellule du dessus (soit A55).

j'espère être compréhensible et attend vos réponses avec impatience.

d'avance merci. (urgent)

2 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 190
bonjour

Ouvres l'éditeur Visual Basic (Alt+F11). Ajoutes un module (Insertions -> Module) et colles le code dedans :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/03/2008 par Polux31
'
' Touche de raccourci du clavier: Ctrl+Maj+W
'

Dim i As Long

i = 2
While Range("D" & i).Value <> ""
    If Range("D" & i).Value = 4 Then
        Range("A" & i).Value = Range("A" & i - 1).Value
    End If
    i = i + 1
Wend
    
End Sub


Ensuite tu fais Ctrl+Maj+w pour lancer la macro

;o)

polux
0
bonjour polux31,

et un grand MERCI!!!

ça fonctionne parfaitement c'est super!

merci pour la rapidité aussi!

a bientôt ;-)
0
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 190
De rien, content que ça règle ton blème

;o)

polux
0