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
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - 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 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
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 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 258
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 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
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 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 258
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

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

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

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

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

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0