Manipuler une plage de données

Résolu
r4944 Messages postés 122 Date d'inscription   Statut Membre Dernière intervention   -  
r4944 Messages postés 122 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

est ce que vous pouvez m'aider a convertir toutes ces lignes dans une seule instruction




ActiveSheet.Cells(vv, 10).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 11).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 12).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 13).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 14).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 15).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 16).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 17).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 18).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 19).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 20).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 21).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 22).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 23).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 24).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 25).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 26).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 27).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 28).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 29).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 30).Interior.Color = vbWhite
ActiveSheet.Cells(vv, 31).Interior.Color = vbWhite










1 réponse

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Utilises un RANGE au lieu de le faire cellule par cellule
Par exemple :
'vv => Variable correspondant au numéro de ligne
ActiveSheet.Range(cells(vv, 10),cells(vv,31)).Interior.Color = vbWhite

ou encore :
'colonne 10 : J
'colonne 31 : AE
'vv => Variable correspondant au numéro de ligne
ActiveSheet.Range("J" & vv &":AE" & vv).Interior.Color = vbWhite



2
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
De rien.....

:-)
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour jordane45,

Il ne faut pas t'étonner quand tu vois tous les messages qu'il a laissé sans suite!

https://forums.commentcamarche.net/forum/s/m/r4944

@+ Le Pivert
0
r4944 Messages postés 122 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Beaucoup Jordane dsl j'etais pas connecté

J'ai pas répondu a temps a cause du décalage horaire

Désolée pour ce désagrément
0