Macro VBA Excel copie cellule selon condition

Question

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

Utilisateur anonyme · Accepted Answer

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

ptibenou · Answer

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!

@+

ptibenou · Answer

Esemple de Lupin beaucoup plus précis que le mien et mieux codé bravo!

Macro VBA Excel copie cellule selon condition

3 réponses

Discussions similaires

Newsletters