syntaxe avec double with

[Sirberthoult]

Bonjour le forum,

Quelqu'un peut il me corriger ce bout de code...
le premier with fonctionne mais cela s’arrête juste après sans erreur et cela n'effectue pas le second...

Private Sub CommandButton1_Click()
Dim onglet1, onglet2
onglet1 = Range("liste!U23").Value
onglet2 = Range("liste!U24").Value
    With Sheets(onglet1)
        .Range("I" & .Range("I2").End(xlDown).Row + 1) = Range("liste!W25").Value
    
    With Sheets(onglet2)
        .Range("I" & .Range("I2").End(xlDown).Row + 1) = Range("liste!W24").Value
    End With
    End With
End Sub

merci d'avance...

 

[Efgé]

Re : syntaxe avec double with

Bonjour Sirberthoult
Essai comme ça (pas testé par faute de fichier exxemple)

With Sheets(onglet1)
    .Range("I" & .Range("I2").End(xlDown).Row + 1) = Range("liste!W25").Value
End With
With Sheets(onglet2)
    .Range("I" & .Range("I2").End(xlDown).Row + 1) = Range("liste!W24").Value
End With

Cordialement

 

[Efgé]

Re : syntaxe avec double with

Re
Ou plutot

With Sheets(onglet1)
    .Range("I" & .Range("I2").End(xlDown).Row + 1) = Sheets("liste").Range("W25").Value
End With
With Sheets(onglet2)
    .Range("I" & .Range("I2").End(xlDown).Row + 1) = Sheets("liste").Range("W24").Value
End With

Cordialement

 

[Sirberthoult]

Re : syntaxe avec double with

Bonjour efgé,...

ca ne marche pas ...

je met donc mon fichier ...

le probléme est dans l'useform rangement entretien...

 

[Efgé]

Re : syntaxe avec double with

Re
Tu aurais pu faire un exemple avec le minimum vital. Cela éviterai de ddevoir découvrir tout le cheminement nécessaire à l'affichage du USF 🙄

La cellule U24 de la feuille Liste est vide. Cela ne peux pas marcher.
Je m'arrete là
Cordialement

 

[Sirberthoult]

Re : syntaxe avec double with

Eureka !

j'ai compris mon erreur... en fait ça marché bien des le debut... sauf qu'apres le premier with cela modifié mes condition en "liste" et donc on n'apercevais pas que le deuxième with fonctionné... puisque les cellules devenaient vide entre temps...

donc j'ai d'abord actionné le deuxieme with avant le premier et la les changement sont pris en compte ....

merci efgé tout de même de ton aide ...

 

[Si...]

Re : syntaxe avec double with

salut

Si... tu veux un peu plus court, sans With, tu peux essayer :

Private Sub CommandButton1_Click()
  Set O1 = Sheets([U23].Text)
  O1.Range("I" & O1.Range("I2").End(xlDown).Row + 1) = Sheets("liste").Range("W25")
  Set O1 = Sheets([U24].Text)
  O1.Range("I" & O1.Range("I2").End(xlDown).Row + 1) = Sheets("liste").Range("W24")
End Sub

 

[Sirberthoult]

Re : syntaxe avec double with

Merci de ta proposition Si...

ça fonctionne également...