Discussion :

[Coco47]

Bonjour à tous,

J'ai une petite question qui est peut être toute simple mais je n'ai pas trouver la solution.

Voilà lorsque je cherche à faire une sélection d'une plage de cellules en VBA je passe presque toujours par une range("XX:XX"). Mais je trouve que ça ce complique bien plus lorsque je chercher a remplir l'intérieur de mon range avec l'adresse d'une cellule que je ne connais pas et que je recherche par sa valeur.
Je m'explique par exemple le tableau ci dessous :

J'ai une formule dans la case E2 et F2 que je veux recopier sur toutes les lignes de mon tableau. Si je connais mes colonnes et lignes je fais un truc très simple du genre :

Code :

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

.Range("E2:F2").Copy .Range("E3:F5486")

Par contre si mes colonnes et me lignes ne sont pas fixes c'est plus compliqué et je passe par des find et end, ce qui me donne :

Code :

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

1
2
.Range(Replace(.Range("1:1").Find("Taux <8M").Offset(1, 0).Address, "$", "") & ":" & Replace(.Range("1:1").Find("Taux").Offset(1, 0).Address, "$", "")).Copy
.Range(Replace(.Range("1:1").Find("Taux <8M").Offset(2, 0).Address, "$", "") & ":" & Split(.Range("1:1").Find("Taux").Address, "$")(1) & .Range("1:1").Find("code_insee").End(xlDown).Row).Paste

Dans le principe ça marche mais je trouve ça très compliqué à écrire et je me demande si il n'existe pas une solution plus simple pour faire une sélection d'une plage plutôt que de passer par un range avec les adresses des cellules ?
Un truc du genre :

Code :

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

select .Range("1:1").Find("Taux <8M") to .Range("1:1").Find("code_insee").End(xlDown).offset(0,5)

Merci d'avance pour vos idées.

[Menhir]

Par contre si mes colonnes et me lignes ne sont pas fixes c'est plus compliqué et je passe par des find et end, ce qui me donne :

Code :

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

1
2
.Range(Replace(.Range("1:1").Find("Taux <8M").Offset(1, 0).Address, "$", "") & ":" & Replace(.Range("1:1").Find("Taux").Offset(1, 0).Address, "$", "")).Copy
.Range(Replace(.Range("1:1").Find("Taux <8M").Offset(2, 0).Address, "$", "") & ":" & Split(.Range("1:1").Find("Taux").Address, "$")(1) & .Range("1:1").Find("code_insee").End(xlDown).Row).Paste

Première remarque : Address ne renvoie pas systématiquement des adresses au format absolu mais peut être paramétré pour renvoyer des adresses relatives.
Lire ceci : https://msdn.microsoft.com/fr-fr/lib...5(v=office.15)

Mais, de toute façon, Range comprend sans problème les adresses avec $.

Donc, tes Replace ne sont pas utiles.

Autre détail qui me dérange : généralement, quand on utilise un Find, il est conseillé de vérifier que la recherche est fructueuse avant d'utiliser le résultat.

Ton code écrit plus simplement :

Code :

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

1
2
3
4
5
6
7
8
9
Dim RDeb As Range, RFin As Range
 
Set RDeb = .Columns(1).Find("Taux <8M")
If RDeb Is Nothing then Exit Sub
Set RDeb = RDeb.Offset(1, 0)
 
Set RFin = .Cells(Rows.Count, 1).End(xlUp)
 
.Range(RDeb, RFin).Copy

J'ai repris les coordonnées que tu avais mis dans ton code mais la colonne ne semble pas correspondre à celle de ta copie d'écran.

[Coco47]

Super Menhir merci pour ta réponse.

Mais, de toute façon, Range comprend sans problème les adresses avec $.

Donc, tes Replace ne sont pas utiles.

Top je ne savais pas, c'est sûr que ça simplifie le code déjà .

Autre détail qui me dérange : généralement, quand on utilise un Find, il est conseillé de vérifier que la recherche est fructueuse avant d'utiliser le résultat.

Oui c'est ce que je fais en général, là j'ai fais un code vite fais pour l'exemple. Sinon ce que je fais aussi souvent, c'est que je vérifie que les colonnes existent dans mon fichier avant dans une fonction de vérification, puis une fonction de traitement dans laquelle je n'ai plus besoin de tester les find.

Ton code écrit plus simplement :

Oui effectivement c'est bien plus simple et surtout je viens de voire que je pouvais utiliser range(xx,xx) avec les cellules en direct plutôt que leurs adresses.

J'ai repris les coordonnées que tu avais mis dans ton code mais la colonne ne semble pas correspondre à celle de ta copie d'écran.

Oui c'est possible vu que j'ai fais un code vite fais pour l'exemple sans vérifier qu'il fonctionnait réellement.

En tout cas merci beaucoup .