Bonjour,
Dans une feuille Excel, j'ai besoin de sélectionner plusieurs lignes non contigues.
J'obtiens le numéro de ces lignes par une variable (qu'on appellera : "LigneASuppr").
Je boucle afin d'instencier ma variable qui contiendra toutes les lignes à sélectionner (cette variable sera : "RangeTotal").
Voilà une partie de mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
RangeTotal = ""
For t = 1 To UBound(TableauValeurs) 'On boucle dans le tableau
  LigneASuppr = TableauValeurs(t) 'On récupère la ligne à vider de la feuille "ARCHIVES"
  RangeTotal = RangeTotal & ", A" & LigneASuppr & ":T" & LigneASuppr
Next t
En faisant cela, j'obtiens bien la liste des lignes à sélectionner, sous la forme :
RangeTotal = A28598:T28598, A28599:T28599, A28600:T28600, A28601:T28601, A28602:T28602
Si maintenant, je fais :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Range(RangeTotal).Select
il me renvoi l'erreur :
"Erreur d'exécution '1004': La méthode 'Range' de l'objet '_Worksheet' a échoué"
J'ai donc essayé de faire directement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Range("A28598:T28598, A28599:T28599, A28600:T28600, A28601:T28601, A28602:T28602").Select
J'imagine donc que l'erreur peut venir du fait que dans ma variable "RangeTotal", je n'ai pas les guillemets de début et de
fin.
J'ai donc fais :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
RangeTotal = ""
For t = 1 To UBound(TableauValeurs) 'On boucle dans le tableau
  LigneASuppr = TableauValeurs(t) 'On récupère la ligne à vider de la feuille "ARCHIVES"
  RangeTotal = RangeTotal & ", A" & LigneASuppr & ":T" & LigneASuppr
Next t
RangeTotal = Chr(34) & RangeTotal & Chr(34)
Range(RangeTotal).Select
Le Chr(34) étant là pour mettre les guillemets, mais le problème persiste et l'erreur reste la même.
Merci d'avance de votre aide !!