Les Allergies
Alimentaires
Posez votre question Signaler

VBA excel Copie valeur cellule avc condition [Résolu]

Tintin - Dernière réponse le 27 mars 2008 à 12:24
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)
Lire la suite 

VBA excel Copie valeur cellule avc condition »

3 réponses
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 27 mars 2008 à 11:56
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

 Ajouter un commentaire
Tintin - 27 mars 2008 à 12:19
bonjour polux31,

et un grand MERCI!!!

ça fonctionne parfaitement c'est super!

merci pour la rapidité aussi!

a bientôt ;-)
Ajouter un commentaire
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 27 mars 2008 à 12:24
De rien, content que ça règle ton blème

;o)

polux

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « VBA excel Copie valeur cellule avc condition » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?