Discussion :

[Astrahl]

Bonjour,

Je vais rentrer des suites de très grands tableaux dans Excel et je veux pouvoir extraire certaines valeurs efficacement. J'ai écris un petit code VBA qui serait capable de sélectionner toutes les 6 cellules d'une même colonne de façon périodique. Seulement mon code ne sélectionne que la dernière cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Sub Macro_test()
 
Dim n As Integer
Dim imin As Integer
Dim imax As Integer
 
imax = 180
imin = 2
n = imin
 
Do While n <= imax
Cells(n, 1).Select
n = n + 6
Loop
 
 
End Sub

En espérant avoir attiré votre attention,
Bonne journée

[rampage92]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 Sub Macro_test()
 
 Dim n As Integer
 Dim imin As Integer
 Dim imax As Integer
 
 imax = 180
 imin = 2
 n = imin
 
For j = n to imax step 6
 valeur = Cells(n, 1)
Msgbox(valeur)
next j
 
 
 End Sub

[Theze]

Bonjour,

Comme ceci les blocs de 6 cellules sont sélectionnés les uns à la suite des autres sans "creux" (A2:A7 puis A8:A13 etc...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Macro_test()
 
    Dim n As Integer
    Dim imin As Integer
    Dim imax As Integer
 
    imax = 180
    imin = 2
    n = imin
 
    For n = imin To imax
 
        Range(Cells(n, 1), Cells(n + 5, 1)).Select
        n = n + 6
 
    Next n
 
End Sub

sinon, par exemple toutes les six cellules (A2:A7 puis A14:A19 etc...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Macro_test()
 
    Dim n As Integer
    Dim imin As Integer
    Dim imax As Integer
 
    imax = 180
    imin = 2
    n = imin
 
    For n = imin To imax Step 6
 
        Range(Cells(n, 1), Cells(n + 5, 1)).Select
        n = n + 6
 
    Next n
 
End Sub

[Astrahl]

Bonjour,

Merci beaucoup d'avoir répondu rapidement comme ça
Je ne connaissais pas la boucle For Next, j'essaierai de l'utiliser du coup !

Le problème c'est que les codes de Theze me sélectionnent seulement les cellules A:177 jusqu'à A:182 pour le premier et A:170 a A:175 pour le deuxième. Et le code de rampage ne me renvoie la valeur 0, donc meme en intégrant un Select ça ne fonctionne pas.
Et je me suis peut etre mal exprimé mais les cellules que je voudrai selectionner sont A:2 A:8 A:14 A:20 etc

[Marc-L]

Bonjour, bonjour !

Il suffit pourtant de lire l'aide VBA interne de l'instruction For … Next ou encore le tutoriel de ce forum !

For R = 2 To {fin} Step 6   …

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Astrahl]

Bonjour,

Oui, du coup j'ai pu en apprendre plus mais j'ai beau le tourner dans tous les sens j'arrive pas a sélectionner toutes ces cellules avec un code

[Marc-L]

Sélectionner ?!   Pourquoi faire ?   Car un bon code n'a pas besoin de sélectionner …

[Astrahl]

Peut etre que ma solution n'est pas la meilleure mais le but de mon code est de selectionner des cellules pour qu'avec ctrC ctrV je puis simplement récuperer les données que je souhaite et les classer dans des colonnes différentes.
Je suis desole je suis un novice

[Marc-L]

Alors dans la boucle copier directement chaque cellule vers la destination …

[Astrahl]

Oooh !! C'est malin, merci !! Je vais travailler dans ce sens et je posterai ce que j'ai fait si je bloque ! Ah j'ai bien fait de venir sur ce forum, merci !!

[riaolle]

Bonjour,

Pas besoin de sélectionner pour copier-coller. Utilise simplement la méthode Copy, par exemple pour copier la valeur de A1 dans A2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Copy destination:=Range("A2")

Encore plus simple, s'il s'agit seulement de "transférer" la valeur de A1 vers A2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2").Value = Range("A1").Value

EDIT : j'ai changé la formule précédente, car je m'étais trompé dans l'ordre de A1 et A2, oups

[RyuAutodidacte]

Bonjour,

Encore plus simple, s'il s'agit seulement de "transférer" la valeur de A1 vers A2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Value = Range("A2").Value

Faux
C'est A1 qui prend la valeur de A2
Attention de ne pas induire en erreur lors de réponses