Macro VBA Excel copie cellule selon condition

brg54 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 ptibenou -
Bonjour,

Je souhaiterais de l'aide afin de créer une macro qui me trouve les cellules colorisée et vide. Et si ces deux conditions sont rempli : ensuite de me copier le contenu de la cellule du dessus pour toutes les cellules trouvée.

Je vous remercie d'avance car je piétine total
A voir également:

3 réponses

Réponse 1 / 3
Utilisateur anonyme
 
Bonjour,

exemple : 

Sub ChercheCondition()

    Dim Plage As Range, Cellule As Range
    
    Set Plage = Range("A4:B6")
    
    For Each Cellule In Plage
        If ((Cellule.Value = "") And (Cellule.Interior.ColorIndex <> xlNone)) Then
            Cellule.Value = Cellule.Offset(-1, 0).Value
        End If
    Next Cellule

End Sub
'

Lupin
6
Réponse 2 / 3
ptibenou
 
Salut,

un truc dans ce style :

Dim i As Integer
For i = 2 To 100
If Feuil1.Cells(i, 1).Interior.Color <> vbWhite Then
Feuil1.Cells(i, 1).Formula = Feuil1.Cells(1, 1).Formula
End If
Next i

Je recherche A2 à A100 si la couleur d'une cellule est différente de blanc.
Si tel est le cas je copie la formule de la cellule A1 sur les cases colorées.

Espérant répondre à ton problème!

@+
2
Réponse 3 / 3
ptibenou
 
Esemple de Lupin beaucoup plus précis que le mien et mieux codé bravo!
0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses