VBA créer une zone nommée problème de syntaxe

[zephir94]

Bonjour à tous,

Je rencontre un soucis de syntaxe pour déclarer une zone nommée de deux lignes avec des variables.

Je dois pas être très loin du pot de Miele ! mais pour l'instant j'ai une erreur de formule renvoyé par Excel snif
Voici mon code :

Private Sub CommandButton1_Click()
Dim derli As Long


With Sheets("test")
Sheets("test").Select

derli = Range("C" & Rows.Count).End(xlUp).Row
w = (derli + 4)
x = (derli + 6)
Rows(20).Copy Destination:=Rows(derli + 3)
    Range("C" & derli + 3).Value = TextBox1.Value
        Range("B" & derli + 3).Value = (TextBox2.Value)

ActiveWorkbook.Worksheets("test").Names.Add Name:=("risque" & TextBox2.Value), _
        RefersToR1C1:= _
        "=" & Sheets(3).Name & "! A[" & w & "]R[" & w & "]:A[" & x & "]R[" & x & "]"
Unload Me
End With
End Sub

Merci par avance pour vos aides

Cordialement Zephir

 

[Staple1600]

Re : VBA Créer une zone nommée problème de syntaxe

Bonsoir à tous

zephir94
Le fichier Excel exemple est en option ?

 

[zephir94]

Re : VBA Créer une zone nommée problème de syntaxe

Non Messire Staple1600 ! avec toutes mes excuses le voici 😱

 

[Staple1600]

Re : VBA créer une zone nommée problème de syntaxe

Re

En attendant un fichier exemple contenant une Sheets(3) ...🙄
Juste une variante d'écriture d'un bout de ton code

Private Sub CommandButton1_Click()
Dim derli&, z&, w&, x&
derli = Sheets("test").Range("C" & Rows.Count).End(xlUp).Row
z = derli + 3: w = z + 1: x = z + 3
Rows(20).Copy Destination:=Rows(z)
Sheets("test").Cells(z, "C").Resize(, 2) = Array(TextBox1, TextBox2)
Unload Me
End Sub

 

[zephir94]

Re : VBA créer une zone nommée problème de syntaxe

Bon j'ai changé mon fusil d'épaule et j'ai simplement utilisé un Range et sa marche aussi

Set plage = Range("A" & w & ":M" & x)
plage.Name = ("risque" & TextBox2.Value)
plage.Select

Bonne soirée à tous

 

[Staple1600]

Re : VBA créer une zone nommée problème de syntaxe

Re

Dans ce cas, tu peux simplement écrire

Private Sub CommandButton1_Click()
Dim derli&, z&, w, x
derli = Sheets("test").Range("C" & Rows.Count).End(xlUp).Row
z = derli + 3: w = z + 1: x = z + 3
Rows(20).Copy Destination:=Rows(z)
Sheets("test").Cells(z, "C").Resize(, 2) = Array(TextBox1, TextBox2)
Range("A" & w & ":M" & x).Name = "risque" & TextBox2
Unload Me
End Sub

 

[zephir94]

Re : VBA créer une zone nommée problème de syntaxe

Un grand merci pour cette proposition, je vais l'étudier avec beaucoup d'attention.

Bonne soirée

Bien cordialement

Zephir