Discussion :

[tibb180]

Salut à tous,

Ca fait 2 jours que j'épluche les forums et j'ai toujours pas la bonne réponse à mon pb. C'est juste un problème de syntaxe tout bête mais je bloque...

Je souhaite sélectionner des cellules non contiguës et variables, voici la partie de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For ligne = 1 To 300
                If Left(Cells(ligne, 4), 5) = "Hours" Then
                Cells(ligne, 4).Select
                For col = 1 To 300
                    If Right(Cells(ligne + 1, col), 5) = Left(Date_input(j), 5) Then
                    Range("& ligne + 2 & col & ", " & ligne +4 & col ").Select
                    Selection.Copy
                    End If
                Next
                End If
        Next

J'explique un peu : Je veux tirer des infos d'un site web, donc pour trouver les infos qui m'interessent je cherche le mot "Hours" puis la date du jour dans ce qui a été extrait du site. Ensuite je sais que les cellules dont j'ai besoin se situent aux lignes "ligne + 2 et col", "ligne + 4 et col", "ligne + 6 et col" etc...
Donc je voudrais la bonne syntaxe pour les sélectionner sachant que et la ligne et la colonne sont des variables. Et mon

Code :

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

Range("& ligne + 2 & col & ", " & ligne +4 & col ").Select

ne fonctionne évidemment pas.


Voila, je voudrais bien un peu d'aide merci.

[joe.levrai]

Bonjour,

sans me pencher sur la logique ou la finalité,

dans ton Range il faut utiliser deux cells, tu les avais oublié

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For ligne = 1 To 300
    If Left(Cells(ligne, 4), 5) = "Hours" Then
        Cells(ligne, 4).Select
        For col = 1 To 300
            If Right(Cells(ligne + 1, col), 5) = Left(Date_input(j), 5) Then
                Range(Cells(ligne + 2, col), Cells(ligne + 4, col)).Select
                Selection.Copy
            End If
        Next col
    End If
Next ligne

[tibb180]

Bonjour, merci pour votre réponse mais non justement je ne veux pas sélectionner une plage de cellule mais des cellules non contigues, d’où le ligne+2 ligne +4, ligne +6 etc...

[joe.levrai]

Dans ce cas là, méa culpa, remplace le Range() par un Union(), regarde l'aide en ligne si tu as besoin de consulter son fonctionnement

Code :

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

Union(Cells(ligne + 2, col), Cells(ligne + 4, col)).Select 'Sélectionne uniquement les deux cellules qui sont dans la parenthèse

[unparia]

Bonjour
Il est dommage que tu aies ouvert cette discussion (qui concerne VBA/Excel) dans la présente section du forum
Le fait que tu travailles sur des cellules alimentées par ceci ou cela, n'a rien à voir ici.
Nonobstant : que veux-tu ensuite faire (de manière précise et détaillée) de cette copie ? Car la solution adéquate dépend très largement de cette précision.

[tibb180]

Merci Joe!!! Tu me sauves, j'ai jamais vu cette fonction auparavant ^^

Pour ce qui est de l'ouverture du topic comme je l'ai dit j'en ai lu beaucoup et j'en ai vu aucun qui parlaient de cette fcn. Non ok ca n'a rien a voir mais je contextualisait un peu, c'était pour qu'on évite de me dire "tu n'as pas besoin de prendre des variables etc..". Cette copie premièrement je dois l'effectuer un bon nombre de fois et je dois la coller dans un autre classeur.

Merci pour votre aide!