Ma macro VB Excel marche une fois sur deux
Maxence
-
zavenger Messages postés 811 Date d'inscription Statut Membre Dernière intervention -
zavenger Messages postés 811 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un souci avec excel, j'ai une macro liée à un bouton de controle sur une feuille, et le traitement n'a pas lieu tout le temps.
Voici ma macro
Sub Entrer()
' Entrer Macro
' Macro enregistrée le 01/07/2008 par Administrator
'
' Touche de raccourci du clavier: Ctrl+w
'
Dim Siren As String
Dim Condition As Boolean
Dim i As Integer
Application.ScreenUpdating = True
' maréponse = InputBox("Commentaire Perfectis")
Siren = Sheets(1).Range("G6").Value
i = 1
Condition = False
Do
If Siren = Sheets(2).Cells(i, 6).Value Then
Sheets(2).Cells(i, 2).Value = Sheets(1).Range("I46").Value
Sheets(2).Cells(i, 55).Value = Sheets(1).Range("I47").Value
Sheets(2).Cells(i, 56).Value = Sheets(1).Range("I48").Value
Condition = True
End If
i = i + 1
Loop While (ActiveCell.Value <> "" And Condition = False)
Load UserForm1
UserForm1.Show
End Sub
Merci d'avance !
J'ai un souci avec excel, j'ai une macro liée à un bouton de controle sur une feuille, et le traitement n'a pas lieu tout le temps.
Voici ma macro
Sub Entrer()
' Entrer Macro
' Macro enregistrée le 01/07/2008 par Administrator
'
' Touche de raccourci du clavier: Ctrl+w
'
Dim Siren As String
Dim Condition As Boolean
Dim i As Integer
Application.ScreenUpdating = True
' maréponse = InputBox("Commentaire Perfectis")
Siren = Sheets(1).Range("G6").Value
i = 1
Condition = False
Do
If Siren = Sheets(2).Cells(i, 6).Value Then
Sheets(2).Cells(i, 2).Value = Sheets(1).Range("I46").Value
Sheets(2).Cells(i, 55).Value = Sheets(1).Range("I47").Value
Sheets(2).Cells(i, 56).Value = Sheets(1).Range("I48").Value
Condition = True
End If
i = i + 1
Loop While (ActiveCell.Value <> "" And Condition = False)
Load UserForm1
UserForm1.Show
End Sub
Merci d'avance !
A voir également:
- Ma macro VB Excel marche une fois sur deux
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
Ce qui ne marche pas, c'est la modification des données dans excel, le programme ne change rien aux valeurs des cellules concernées.
Sheets(2).Cells(i, 2).Value = Sheets(1).Range("I46").Value
Sheets(2).Cells(i, 55).Value = Sheets(1).Range("I47").Value
Sheets(2).Cells(i, 56).Value = Sheets(1).Range("I48").Value
il y a aussi un UserForm qui ne fonctionne également pas
Ce qui est étrange, c'est que parfois ça marche et parfois non... Alors je me demande pourquoi.
Ca pourrait être une problème de stabilité du code?
Je viens de remarquer que l'enrregistrement fonctionne suivant la cellule qui est sélectionnée lorsque je valide le formulaire... Etrange non?