[Résolu] Argument pour la fonction Cells

Argument pour la fonction Cells [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 20-07-2012 à 16:18:58    

Bonjour, c'est encore moi (j'ai l'impression d'être le seul à poser des questions aujourd'hui :)
 
Voici mon nouveau problème:
 
Je sélectionne une feuille et je cherche à sélectionner une cellule dans cette feuille:
L'argument pour la colonne de la fonction Cells dépend de l'indice i (la sélection se fait au sein d'une boucle for), du nombre nbvide (défini avant) et du nombre n+1 (n défini avant aussi et valant 0 pour le moment)
 

Code :
  1. Dim nbvide As Integer
  2. Dim n As Integer
  4. Feuil7.Select
  5. Cells(1, nbvide + 10 * (i - 1) + 1 + n).Select
  6. ActiveCell.Columns.Select
  7. Selection.EntireColumn.Hidden = True


 
Mon problème, c'est que j'obtiens une erreur au niveau de la ligne 5 qui ne s'exécute pas


Message édité par cfgluciole1 le 23-07-2012 à 13:49:43
Reply

Marsh Posté le 20-07-2012 à 16:18:58   

Reply

Marsh Posté le 20-07-2012 à 17:44:05    

c'est quoi comme erreur et que valent i, nbvide et n ?
 
Si l'opération "nbvide + 10 * (i - 1) + 1 + n" donne un résultat <=0 ou null, ça provoque certainement une erreur.


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 23-07-2012 à 09:35:01    

Bonjour oovaveoo,
 
nbvide est défini auparavant comme un entier et vaut 2 ici
i la variable de ma boucle for et varie de 1 à 3
n est un entier et vaut 0 ou 1
 
La valeur de "nbvide + 10 * (i - 1) + 1 + n" est donc au minimum de 3.  
L'erreur que j'obtiens est une erreur d'exécution '1004': Erreur définie par l'application ou par l'objet.  
 
Je te remets mon code ci dessous:
 

Code :
  1. Dim n As Integer
  2. Dim nbvide As Integer
  4. For i = 1 To 3
  5.         MsgBox (nbvide + 10 * (i - 1) + 1 + n)
  6.         Feuil7.Select
  7.         Cells(1, nbvide + 10 * (i - 1) + 1 + n).Select
  8.         ActiveCell.Columns.Select
  9.         Selection.EntireColumn.Hidden = True


 
L'erreur a lieu à la ligne 7.
 
Merci beaucoup,
 
Cfgluciole1
 


Message édité par cfgluciole1 le 23-07-2012 à 09:43:24
Reply

Marsh Posté le 23-07-2012 à 10:05:04    

Le code entier est trop long ?
parce-que là, je ne vois pas ce qui ne marche pas ??
 
Et qu'est-ce que tu veux faire, parce-que, ça me semble un peu compliqué cette opération pour juste sélectionner une colonne à masquer.


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 23-07-2012 à 10:23:15    

Bonjour oovaveoo,
 
Le code entier est un peu long mais je peux t'expliquer plus en détail ma manœuvre:
 
Je dispose de deux onglets (Feuil 6 et Feuil 7) dans lesquels sont situés des données (différentes) rangées par années (de 2012 à 2015)
 
Mon but est d'avoir une macro qui prend en entrée une année de début (Cells (2,3)) et de fin (Cells(3,3))  et qui me permet d'afficher uniquement les données entre des deux années sur les deux feuilles.  
 
Le bouton gérant la macro est sur la Feuil6.
 
c1 et c2 sont des cellules permettant de repérer la ligne et colonne des années sur la feuille 6 (ce sont des balises pour repérer où je dois chercher mes années)
 
Dans mon premier onglet, chaque année a 3 colonnes de données ( d'où le 3 * (i-1))
Dans mon deuxième onglet, chaque année a 10 colonnes de données ( d'où le 10* (i-1))
 
Je te mets ci dessous un aperçu plus large de la macro:
 

Code :
  1. Sub Macromasquer()
  3.     Feuil6 .Select
  4.     ActiveSheet.Columns.Select
  5.     Selection.EntireColumn.Hidden = False
  6.    
  7.     Dim n As Integer
  8.     n = 0
  9.     Dim nbvide As Integer
  10.     nbvide = 2
  11.    
  12.     For i = 1 To 3
  13.        
  14.         Feuil6.Select
  15.         If Cells(c1.Row, 3 * (i - 1) + c2.Column + 1).Value < Cells(2, 3).Value Then
  16.         Cells(c1.Row, 3 * (i - 1) + c2.Column + 1).Select
  17.         ActiveCell.Columns.Select
  18.         Selection.EntireColumn.Hidden = True
  19.          Cells(c1.Row, 3 * (i - 1) + c2.Column + 2).Select
  20.         ActiveCell.Columns.Select
  21.         Selection.EntireColumn.Hidden = True
  22.         Cells(c1.Row, 3 * (i - 1) + c2.Column + 3).Select
  23.         ActiveCell.Columns.Select
  24.         Selection.EntireColumn.Hidden = True
  25.        
  26.         Feuil7.Select
  27.         Cells(1, nbvide + 10 * (i - 1) + 1 + n).Select
  28.         ActiveCell.Columns.Select
  29.         Selection.EntireColumn.Hidden = True
  30.         Cells(1, nbvide + 10 * (i - 1) + 2 + n).Select
  31.         ActiveCell.Columns.Select
  32.         Selection.EntireColumn.Hidden = True
  33.         Cells(1, nbvide + 10 * (i - 1) + 3 + n).Select
  34.         ActiveCell.Columns.Select
  35.         Selection.EntireColumn.Hidden = True
  36.         Cells(1, nbvide + 10 * (i - 1) + 4 + n).Select
  37.         ActiveCell.Columns.Select
  38.         Selection.EntireColumn.Hidden = True
  39.         Cells(1, nbvide + 10 * (i - 1) + 5 + n).Select
  40.         ActiveCell.Columns.Select
  41.         Selection.EntireColumn.Hidden = True
  42.         Cells(1, nbvide + 10 * (i - 1) + 6 + n).Select
  43.         ActiveCell.Columns.Select
  44.         Selection.EntireColumn.Hidden = True
  45.         Cells(1, nbvide + 10 * (i - 1) + 7 + n).Select
  46.         ActiveCell.Columns.Select
  47.         Selection.EntireColumn.Hidden = True
  48.         Cells(1, nbvide + 10 * (i - 1) + 8 + n).Select
  49.         ActiveCell.Columns.Select
  50.         Selection.EntireColumn.Hidden = True
  51.         Cells(1, nbvide + 10 * (i - 1) + 9 + n).Select
  52.         ActiveCell.Columns.Select
  53.         Selection.EntireColumn.Hidden = True
  54.         Cells(1, nbvide + 10 * (i - 1) + 10 + n).Select
  55.         ActiveCell.Columns.Select
  56.         Selection.EntireColumn.Hidden = True
  57.        
  58.         End If
  59.        
  60.         Feuil6.Select
  61.         If Cells(c1.Row, 3 * (i - 1) + c2.Column + 1).Value > Cells(3, 3).Value Then
  62.         Cells(c1.Row, 3 * (i - 1) + c2.Column + 1).Select
  63.         ActiveCell.Columns.Select
  64.         Selection.EntireColumn.Hidden = True
  65.         Cells(c1.Row, 3 * (i - 1) + c2.Column + 2).Select
  66.         ActiveCell.Columns.Select
  67.         Selection.EntireColumn.Hidden = True
  68.         Cells(c1.Row, 3 * (i - 1) + c2.Column + 3).Select
  69.         ActiveCell.Columns.Select
  70.         Selection.EntireColumn.Hidden = True
  71.         MsgBox (nbvide + 10 * (i - 1) + 1 + n)
  72.        
  73.         Feuil7.Select
  74.         Cells(1, nbvide + 10 * (i - 1) + 1 + n).Select
  75.         ActiveCell.Columns.Select
  76.         Selection.EntireColumn.Hidden = True
  77.         Cells(1, nbvide + 10 * (i - 1) + 2 + n).Select
  78.         ActiveCell.Columns.Select
  79.         Selection.EntireColumn.Hidden = True
  80.         Cells(1, nbvide + 10 * (i - 1) + 3 + n).Select
  81.         ActiveCell.Columns.Select
  82.         Selection.EntireColumn.Hidden = True
  83.         Cells(1, nbvide + 10 * (i - 1) + 4 + n).Select
  84.         ActiveCell.Columns.Select
  85.         Selection.EntireColumn.Hidden = True
  86.         Cells(1, nbvide + 10 * (i - 1) + 5 + n).Select
  87.         ActiveCell.Columns.Select
  88.         Selection.EntireColumn.Hidden = True
  89.         Cells(1, nbvide + 10 * (i - 1) + 6 + n).Select
  90.         ActiveCell.Columns.Select
  91.         Selection.EntireColumn.Hidden = True
  92.         Cells(1, nbvide + 10 * (i - 1) + 7 + n).Select
  93.         ActiveCell.Columns.Select
  94.         Selection.EntireColumn.Hidden = True
  95.         Cells(1, nbvide + 10 * (i - 1) + 8 + n).Select
  96.         ActiveCell.Columns.Select
  97.         Selection.EntireColumn.Hidden = True
  98.         Cells(1, nbvide + 10 * (i - 1) + 9 + n).Select
  99.         ActiveCell.Columns.Select
  100.         Selection.EntireColumn.Hidden = True
  101.         Cells(1, nbvide + 10 * (i - 1) + 10 + n).Select
  102.         ActiveCell.Columns.Select
  103.         Selection.EntireColumn.Hidden = True
  104.        
  105.         End If
  106.        
  107.         n = 1
  108.    
  109.     Next i


 
Je ne sais pas si cela t'aide dans ta démarche pour m'aider mais j'espère que c'est assez clair, sinon n'hésites pas à me redemander.
 
Merci beaucoup,
 
Cfgluciole1

Reply

Marsh Posté le 23-07-2012 à 10:57:58    

Ca donne quoi le  

Code :
  1. MsgBox (nbvide + 10 * (i - 1) + 1 + n)


 
Sinon, tu peux déjà simplifier :

Code :
  1. Feuil7.Select
  2.         Cells(1, nbvide + 10 * (i - 1) + 1 + n).Select
  3.         ActiveCell.Columns.Select
  4.         Selection.EntireColumn.Hidden = True
  5.         Cells(1, nbvide + 10 * (i - 1) + 2 + n).Select
  6.         ActiveCell.Columns.Select
  7.         Selection.EntireColumn.Hidden = True
  8.         Cells(1, nbvide + 10 * (i - 1) + 3 + n).Select
  9.         ActiveCell.Columns.Select
  10.         Selection.EntireColumn.Hidden = True
  11.         Cells(1, nbvide + 10 * (i - 1) + 4 + n).Select
  12.         ActiveCell.Columns.Select
  13.         Selection.EntireColumn.Hidden = True
  14.         Cells(1, nbvide + 10 * (i - 1) + 5 + n).Select
  15.         ActiveCell.Columns.Select
  16.         Selection.EntireColumn.Hidden = True
  17.         Cells(1, nbvide + 10 * (i - 1) + 6 + n).Select
  18.         ActiveCell.Columns.Select
  19.         Selection.EntireColumn.Hidden = True
  20.         Cells(1, nbvide + 10 * (i - 1) + 7 + n).Select
  21.         ActiveCell.Columns.Select
  22.         Selection.EntireColumn.Hidden = True
  23.         Cells(1, nbvide + 10 * (i - 1) + 8 + n).Select
  24.         ActiveCell.Columns.Select
  25.         Selection.EntireColumn.Hidden = True
  26.         Cells(1, nbvide + 10 * (i - 1) + 9 + n).Select
  27.         ActiveCell.Columns.Select
  28.         Selection.EntireColumn.Hidden = True
  29.         Cells(1, nbvide + 10 * (i - 1) + 10 + n).Select
  30.         ActiveCell.Columns.Select
  31.         Selection.EntireColumn.Hidden = True


 
En

Code :
  1. Feuil7.Select
  2. For k = 1 to 10
  3.         Cells(1, nbvide + 10 * (i - 1) + k + n).Columns.EntireColumn.Hidden = True
  4. Next k


 
Ca sera plus lisible et un peu plus concis  :)


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 23-07-2012 à 13:47:07    

Bonjour oovaveo,
 

Code :
  1. MsgBox (nbvide + 10 * (i - 1) + 1 + n)


 
renvoie la valeur 3 (première boucle, nbvide =2, n=0, i=1) puis 14 (deuxième boucle, nbvide = 2, n=1, i=2) puis 25  (troisième boucle, nbvide = 2, n=2, i=3)
 
Merci pour ton aide, j'ai simplifié mon code:
 

Code :
  1. For i = 1 To 3
  3.         Feuil6.Select
  5.         If Cells(c1.Row, 3 * (i - 1) + c2.Column + 1).Value < Cells(2, 3).Value Then
  6.         For j = 1 To 3
  7.             Cells(c1.Row, 3 * (i - 1) + c2.Column + j).Columns.EntireColumn.Hidden = True
  8.             Next j
  10.         Feuil7.Select
  11.         For k = 1 To 10
  12.         Cells(1, nbvide + 10 * (i - 1) + k + n).Columns.EntireColumn.Hidden = True
  13.         Next k
  14.        
  15.         End If
  17.         Feuil6.Select
  19.         If Cells(c1.Row, 3 * (i - 1) + c2.Column + 1).Value > Cells(3, 3).Value Then
  20.         For j = 1 To 3
  21.             Cells(c1.Row, 3 * (i - 1) + c2.Column + j).Columns.EntireColumn.Hidden = True
  22.             Next j
  23.            
  24.         MsgBox (nbvide + 10 * (i - 1) + 1 + n)
  26.         Feuil7.Select
  27.         For k = 1 To 10
  28.             Cells(1, nbvide + 10 * (i - 1) + k + n).Columns.EntireColumn.Hidden = True
  29.             Next k
  30.        
  31.         End If
  32.        
  33.         'Après le premier passage, la valeur esp passe à 1 pour tenir compte du format
  34.         n = n+1
  35.    
  36.     Next i


 
Excellente nouvelle par ailleurs: Le code marche maintenant parfaitement :D
 
Merci beaucoup pour tes conseils (je ne sais pas où se situait l'erreur cependant  :??: )
 
Bonne après midi,
 
Cfgluciole1


Message édité par cfgluciole1 le 23-07-2012 à 13:49:10
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed