Rechercher : dans
Par :

VBA excel Copie valeur cellule avc condition

Dernière réponse le 27 mar 2008 à 12:24:24 Tintin, le 27 mar 2008 à 11:22:35 
 Signaler ce message aux modérateurs

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)

Configuration: Windows 2003
Internet Explorer 6.0

Meilleures réponses pour « VBA excel Copie valeur cellule avc condition » dans :
[Excel] Colorer des cellules sur conditions Voir Il existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
Excel - Mises en forme conditionnelles illimitées VoirMises en Forme Conditionnelles Illimitées Introduction Principe Code Fichier joint Introduction La Mise en Forme Conditionelle (ou MFC) permet d'appliquer, à une cellule ou à plusieurs cellules sélectionnées, différents formats qui...
Eviter les doublons dans Excel VoirEviter les doublons lors d'un encodage dans un colonne de feuille excel: prendre le format conditionnel sur le première cellule sous les titres (par ex A2) choisir la formule suivante : =NB.SI($A$2:$A$21;A2)>1 mettre là la couleur de fond...

1

Polux31, le 27 mar 2008 à 11:56:47

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

Répondre à Polux31

2

Tintin, le 27 mar 2008 à 12:19:17

Bonjour polux31,

et un grand MERCI!!!

ça fonctionne parfaitement c'est super!

merci pour la rapidité aussi!

a bientôt ;-)

Répondre à Tintin

3

 Polux31, le 27 mar 2008 à 12:24:24

De rien, content que ça règle ton blème

;o)

polux

Répondre à Polux31