Problème VBA

Fermé

la pioche Messages postés 1 Date d'inscription mardi 9 décembre 2008 Statut Membre Dernière intervention 9 décembre 2008 - 9 déc. 2008 à 16:54
la pioche - 10 déc. 2008 à 15:08

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

A voir également:

Problème VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

bnb
9 déc. 2008 à 17:15

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!

Réponse 2 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 déc. 2008 à 17:35

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

Réponse 3 / 5

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
9 déc. 2008 à 19:57

Bonsoir,

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

eric

Réponse 4 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
10 déc. 2008 à 09:07

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

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
10 déc. 2008 à 09:24

Bonjour michel,

oui, bien sûr qu'on peut garder with worksheets (encore plus court en car. et tu savais la réponse), mais c'était pour l'avoir sur 1 ligne ;-)
bonne journée à toi aussi
eric

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

la pioche
10 déc. 2008 à 15:08

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters