problème VBA

Question

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

bnb · Answer

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!

michel_m · Answer

Bonsoir
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

eriiic · Answer

Bonsoir,

un poil plus court :-)
Worksheets("Saisie donnée chaussée").[I10:J11].Value = Worksheets("Saisie donnée chaussée").[F10:G11].Value

eric

michel_m · Answer

Bien joué, Eric :-)
on aurait pu garder with worksheets ?
C'était histoire de papoter...
Bonne journée

la pioche · Answer

merci beaucoup et bonne journée a vous tous!!

Problème VBA

5 réponses

Discussions similaires

Newsletters