Manipuler une plage de données

Résolu
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 



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

  1.
    jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    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
    1. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
       
      De rien.....

      :-)
      0
    3. r4944 Messages postés 136 Statut Membre
       
      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

Discussions similaires

Ecran BenQ "Input signal out of range"
marlene -
usman000 -

14 réponses
Retrouver l'image originale d'une photo modifiée
Raven -
Asta972155 -

10 réponses
Problème de restrictions
SuperAmbi -
Pat -

5 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Syntaxe VBA Sheets.Range avec Range variable
Nicoroth -
lermite222 -

17 réponses