Manipuler une plage de données

Résolu/Fermé

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 23 nov. 2015 à 21:43
r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 24 nov. 2015 à 17:06

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

A voir également:

Manipuler un range ou plage de données en vba
Effacer les données de navigation - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba l'indice n'appartient pas à la sélection - Forum VB / VBA
Reinstaller windows sans perte de données - Guide
Exemple base de données access à télécharger gratuit - Forum Access

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38142 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 20 avril 2024 4 649
24 nov. 2015 à 00:53

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

jordane45 Messages postés 38142 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 20 avril 2024 4 649
24 nov. 2015 à 15:45

De rien.....

:-)

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
24 nov. 2015 à 15:51

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

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
24 nov. 2015 à 17:06

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

VBA : Range avec références variables..

input signal out of range

VBA Excel : sélection d'une plage variable

Sur la plage...

Discussions similaires

Newsletters