Macro VBA Excel copie cellule selon condition
brg54
Messages postés
1
Statut
Membre
-
ptibenou -
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
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:
- Macro VBA Excel copie cellule selon condition
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
3 réponses
Bonjour,
exemple :
Lupin
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
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!
@+
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!
@+
