syntaxe avec double with

Efgé

XLDnaute Barbatruc

• 13 Octobre 2012

• #2

Re : syntaxe avec double with

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

VB:

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 13 Octobre 2012

• #3

Re : syntaxe avec double with

Re
Ou plutot

VB:

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

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 13 Octobre 2012

• #4

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

 

Pièces jointes

• Zodincu 3.xls

  236 KB · Affichages: 33
• Zodincu 3.xls

  236 KB · Affichages: 34
• Zodincu 3.xls

  236 KB · Affichages: 36

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 13 Octobre 2012

• #5

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

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 13 Octobre 2012

• #6

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 13 Octobre 2012

• #7

Re : syntaxe avec double with

salut

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

Code:

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

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 13 Octobre 2012

• #8

Re : syntaxe avec double with

Merci de ta proposition Si...

ça fonctionne également...

 

Vote positif 0 Vote négatif