yule bwinner
XLDnaute Nouveau
Bonjour, je cherche à reporter les couleurs de fond en fonction de la valeur depuis une base de donnée.
j ai cette formule mais elle ne marche pas....
Sub couleur()
' On désactive la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To 26
boite = Sheets("Epissures a remplir").Range("A" & i).Value
Sheets("Etiquette et").Activate
Dim FL1 As Worksheet, Cell As Range
Dim Var1 As String
Set FL1 = Worksheets("Etiquette et")
With FL1
For Each Cell In Range("A1:T340")
'Valeur de la cellule lue
Var1 = Cell.Value
If Var1 = boite Then
Sheets("Epissures a remplir").Activate
Range("A" & i).Select
Sheets("Etiquette et").Activate
Cell.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next
End With
Next
Fin = True
' On active la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Je pense que le fichier joint sera plus parlant que mes explications.
Merci à vous
j ai cette formule mais elle ne marche pas....
Sub couleur()
' On désactive la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To 26
boite = Sheets("Epissures a remplir").Range("A" & i).Value
Sheets("Etiquette et").Activate
Dim FL1 As Worksheet, Cell As Range
Dim Var1 As String
Set FL1 = Worksheets("Etiquette et")
With FL1
For Each Cell In Range("A1:T340")
'Valeur de la cellule lue
Var1 = Cell.Value
If Var1 = boite Then
Sheets("Epissures a remplir").Activate
Range("A" & i).Select
Sheets("Etiquette et").Activate
Cell.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next
End With
Next
Fin = True
' On active la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Je pense que le fichier joint sera plus parlant que mes explications.
Merci à vous