• Publicité

Dupliquer une macro sur plusieurs cellules

Dans ce forum, vous pouvez poser toutes vos questions concernant l'utilisation de logiciels de bureautique (Microsoft Office, Open Office, etc.)

Modérateurs: Sebastien, Stéphane, Christophe

Dupliquer une macro sur plusieurs cellules

Messagepar tourry » 20 Juin 2016 13:48

Bonjour à tous,

Je calle pour dupliquer une macro de mon classeur, basé sur 1 cellule, à plusieurs autres cellules.

Actuellement, dans mon classeur, quand la date inscrite dans la cellule K9 de la feuille "Dispo" se retrouve en rouge dans la feuille "Seville" (date en rouge si l'information STOP est écrite), alors la cellule K9 de la feuille "Dispo" passe en rouge.

ça donne ça :

Sub Kaneuf()
Set c = Sheets("Seville").Range("A6:W36").Find(Sheets("Dispo").Range("K9"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
If c.Offset(0, 1) = "STOP" Then
Sheets("Dispo").Range("K9").Interior.ColorIndex = 3
Else
Sheets("Dispo").Range("K9").Interior.ColorIndex = xlNone
End If
End If
End Sub
Sub essai()
MsgBox (Sheets("Seville").Range("C7").Interior.ColorIndex)
End Sub

Maintenant je dois reproduire cette fonction pour les cellules K10 à K20 de la feuille 'Dispo", à savoir :
si la date inscrite dans ma cellule K10 de la feuille "Dispo" se retrouve en rouge dans la feuille "Seville" (date en rouge si l'information STOP existe), alors la cellule K10 de la feuille "Dispo" passe en rouge.

etc, etc, etc ... jusqu'à la cellule K20 de ma feuille "Dispo".

Mais attention, il faut que la colorisation des cellules K9 à K20 en feuille "Dispo" reste indépendante, cellule par cellule, selon les dates en STOP ou pas de la feuille "Seville".

Quelqu'un aurait une idée ?

Merci d'avance
tourry
No0b
No0b
 
Messages: 1
Enregistré le: 20 Juin 2016 13:33

Retourner vers Forum d'entraide : Bureautique

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 9 invités

  • Publicité