Problème VBA
la pioche
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
la pioche -
la pioche -
Bonjour,
je suis débutant en programmation sur VBA et j'aimerais savoir si l'on peut simplifier cette procédure qui me parait une usine a gaz
Extrait visual basic editor
Sub Bouton3_QuandClic()
Worksheets("Saisie donnée chaussée").Range("I10") = Worksheets("Saisie donnée chaussée").Range("F10")
Worksheets("Saisie donnée chaussée").Range("J10") = Worksheets("Saisie donnée chaussée").Range("G10")
Worksheets("Saisie donnée chaussée").Range("I11") = Worksheets("Saisie donnée chaussée").Range("F11")
Worksheets("Saisie donnée chaussée").Range("J11") = Worksheets("Saisie donnée chaussée").Range("G11")
'quand on click sur symetrie profil cela recopie les cellule gauche vers les cellules droites
End Sub
merci
je suis débutant en programmation sur VBA et j'aimerais savoir si l'on peut simplifier cette procédure qui me parait une usine a gaz
Extrait visual basic editor
Sub Bouton3_QuandClic()
Worksheets("Saisie donnée chaussée").Range("I10") = Worksheets("Saisie donnée chaussée").Range("F10")
Worksheets("Saisie donnée chaussée").Range("J10") = Worksheets("Saisie donnée chaussée").Range("G10")
Worksheets("Saisie donnée chaussée").Range("I11") = Worksheets("Saisie donnée chaussée").Range("F11")
Worksheets("Saisie donnée chaussée").Range("J11") = Worksheets("Saisie donnée chaussée").Range("G11")
'quand on click sur symetrie profil cela recopie les cellule gauche vers les cellules droites
End Sub
merci
5 réponses
Tu remplaces la valeur de tes ranges par des variables que tu incrémentes dans une boucle Fox... Next comme cela tu n'utilises qu'une ligne woksheet... blablabla
dim A as string *1
dim B as integer
A = "F"
For B = 1 to 2
Worksheets("Saisie donnée chaussée").Range(chr(asc(A)+3) & B+9) = Worksheets("Saisie donnée chaussée").Range(A & B+9)
A = chr(asc(A)+1)
next B
A adapter car je suis pas sûr du code!
dim A as string *1
dim B as integer
A = "F"
For B = 1 to 2
Worksheets("Saisie donnée chaussée").Range(chr(asc(A)+3) & B+9) = Worksheets("Saisie donnée chaussée").Range(A & B+9)
A = chr(asc(A)+1)
next B
A adapter car je suis pas sûr du code!
Bonsoir
Effectivement§...
a essayer:
Bonne soirée
Effectivement§...
a essayer:
Sub fff()
With Worksheets("Saisie donnée chaussée")
tablo = .Range("F10:G11")
.Range("I10:J11") = tablo
End With
End Sub
Bonne soirée
Bonsoir,
un poil plus court :-)
Worksheets("Saisie donnée chaussée").[I10:J11].Value = Worksheets("Saisie donnée chaussée").[F10:G11].Value
eric
un poil plus court :-)
Worksheets("Saisie donnée chaussée").[I10:J11].Value = Worksheets("Saisie donnée chaussée").[F10:G11].Value
eric
Bien joué, Eric :-)
on aurait pu garder with worksheets ?
C'était histoire de papoter...
Bonne journée
on aurait pu garder with worksheets ?
C'était histoire de papoter...
Bonne journée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question