Manipuler une plage de données
Résolu
r4944
Messages postés
136
Statut
Membre
-
r4944 Messages postés 136 Statut Membre -
r4944 Messages postés 136 Statut Membre -
Bonjour,
est ce que vous pouvez m'aider a convertir toutes ces lignes dans une seule instruction
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
A voir également:
- Manipuler un range ou plage de données en vba
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- La zone de données passée à un appel système est insuffisante - Windows 11
- Input signal out of range - Forum Ecran
- Trier des données excel - Guide
1 réponse
Bonjour,
Utilises un RANGE au lieu de le faire cellule par cellule
Par exemple :
ou encore :
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
:-)
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
J'ai pas répondu a temps a cause du décalage horaire
Désolée pour ce désagrément