VBA excel Copie valeur cellule avc condition Résolu/Fermé

Question

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)

Polux31 · Answer

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

Polux31 · Answer

De rien, content que ça règle ton blème

;o)

polux

VBA excel Copie valeur cellule avc condition

2 réponses

Discussions similaires