Nommer une plage de données à l'aide de deux variables

Version imprimable

Bonjour,

J'ai débuté avec VBA il y a 15 jours et désire désormais améliorer mon code en retirant tous les "select" et "activate" (et aussi les déplacement du genre "ActiveCell.End(xlToLeft).Select" ou "ActiveCell.Offset(1, 0).Activate").

Je butte sur la nomination d'une plage de données avec deux variables :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
    Dim tp As Worksheet
        Set tp = ActiveWorkbook.Worksheets("tableau_phyto")
 
    Dim nbTax As Range
    Dim Lign As Long
    Dim TaxCel1 As Range
    Dim TaxCelder As Range
 
  With tp
 
    Set nbTax = .Columns(7).Cells.Find(What:="Nombre de taxons", LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
 
    If nbTax Is Nothing Then    'si on ne trouve pas la cellule contenant "Nombre de taxons"
        MsgBox "Oups !!! Pas de cellule Nombre de taxons !!!"
        Exit Sub
    Else
    'si on trouve Nombre de taxons, on note à qu'elle ligne
        Lign = nbTax.Row
    End If
		'Et l'on définit la ligne du dessous = début de la liste taxons à copier
			.Cells(Lign + 1, 1).Name = "TaxCel1"
 
		'Definir la dernière cellule non vide (dernière ligne:dernière colonne) de la zone à copier
             Set TaxCelder = .Rows(1).Find("*", .Cells(1, 1), xlValues, xlPart, , xlPrevious)
 
		'Nommer la plage à copier située entre TaxCel1 et TaxCelder
                    .Range(TaxCel1, TaxCelder).Name = "listPhyto"
 
 
	'Copie de la liste taxons dans le tableau final
		.Range("listPhyto").Copy Destination:=Sheets("Tableau_final").Range("A1")
 
  End With

Lors de l'exécution pas à pas, c'est la ligne

Code:

.Range(TaxCel1, TaxCelder).Name = "listPhyto"

qui bogue, probablement une mauvaise syntaxe mais je n'ai pas trouvé d'exemple avec deux variables sur internet.

Merci d'avance pour votre aide

01/03/2021, 09h16
halaster08
Bonjour,

L'opérateur pour concaténer deux chaines de caractère c'est le "&"
Code:

1 2 3 4 variable1 ="list" variable2 ="Phyto" .name = variable1 & variable2
01/03/2021, 09h38
43pipistrel

Bonjour halaster08,

Merci pour cette réponse rapide

Il ne s'agit pas ici de concaténer deux variables mais de nommer la plage située entre une première cellule nommée TaxCel1 et une deuxième cellule nommée TaxCelder sachant que lorsque j'écris

Code:

.Range("A1", TaxCelder).Name = "listPhyto"

Je copie bien la plage de données de A1 à TaxCelder sauf que je veux copier de TaxCel1 à TaxCelder

J'espère que mon explication est plus claire :oops::oops::oops:
01/03/2021, 10h21
halaster08
Citation:

Envoyé par 43pipistrel

Il ne s'agit pas ici de concaténer deux variables mais de nommer la plage située entre une première cellule nommée TaxCel1 et une deuxième cellule nommée TaxCelder

Mais quelle idée de poser des questions un Lundi matin aussi !

Perso j'utilise la syntaxe suivante donnée par l'enregistreur de macro:
Code:

1 2 3 4 5 Sub aa() Set cel1 = Range("B2") Set cel2 = Range("D4") ActiveWorkbook.Names.Add Name:="testmacro", RefersTo:=Range(cel1, cel2) End Sub
Note que si le nom est déjà utilisé ça le remplace sans message d'avertissement
01/03/2021, 10h43
43pipistrel

Re,

Merci, mais malheureusement, ça ne change rien, le code bogue maintenant sur la nouvelle ligne :

Code:

ActiveWorkbook.Names.Add Name:="listPhyto", RefersTo:=Range(TaxCel1, TaxCelder)

j'ai l'impression que c'est toujours Range(TaxCel1, TaxCelder) qui n'est pas accepté !

Merci pour votre aide !
01/03/2021, 10h58
halaster08

C'est parce que tu n'as pas déclaré ta variable correctement

Code:

Set TaxCelder = .Rows(1).Find("*", .Cells(1, 1), xlValues, xlPart, , xlPrevious)

TaxCelder est bien défini comme une cellule

Code:

.Cells(Lign + 1, 1).Name = "TaxCel1"

Mais TaxCel1 c'est pas une cellule c'est juste un nom de plage

Donc soit tu défini taxcel1 comme une cellule

Code:

set taxcel1 = .Cells(Lign + 1, 1)

Soit tu utilise correctement ta plage nommée

Code:

ActiveWorkbook.Names.Add Name:="listPhyto", RefersTo:=Range(range("TaxCel1"), TaxCelder)
01/03/2021, 11h09
43pipistrel

Merci beaucoup halaster08

C'était effectivement le problème !!! Trop peu d'expérience pour repérer encore ce genre de chose, mais j'apprends !!!

Bonne journée :D