Discussion :

[43pipistrel]

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 :

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
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 :

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

.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

[halaster08]

Bonjour,

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

Code :

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

1
2
3
4
 
variable1 ="list"
variable2 ="Phyto"
.name = variable1 & variable2

[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 :

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

.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

[halaster08]

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 :

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

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

[43pipistrel]

Re,

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

Code :

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

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 !

[halaster08]

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

Code :

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

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

TaxCelder est bien défini comme une cellule

Code :

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

.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 :

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

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

Soit tu utilise correctement ta plage nommée

Code :

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

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

[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