M
mike
Guest
Bonjour tout le monde,
j ai ces deux macros :
Private Sub CommandButton1_Click()
'Déclaration des variables
Dim lig, colonne As Integer
Dim Banque As String
Dim Courtage As String
'Coupe la mise a jour ecran
Application.ScreenUpdating = False
'Initialisation des variables
lig = 1
colonne = 2
Banque = CB1.Value
Courtage = ActiveSheet.Range('A7')
'Active la feuille Historique
Sheets('Feuil3').Activate
'Recherche le client selectionné
Do Until ActiveSheet.Cells(lig, colonne) = Banque Or ActiveSheet.Cells(lig, colonne) = ''
lig = lig + 1
Loop
If ActiveSheet.Cells(lig, colonne) = '' Then
MsgBox 'Le client est introuvable dans le tableau Historique'
Else
'Recherche la premiere ligne vide pour ce client
Do Until ActiveSheet.Cells(lig, colonne) = ''
colonne = colonne + 1
Loop
'Colle le montant dans la cellule
ActiveSheet.Cells(lig, colonne) = Courtage
End If
Sheets('Feuil2').Activate
'Remet la mise a jour de l'ecran
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
'Déclaration des variables
Dim lig, colonne As Integer
Dim Banque As String
Dim Courtage As String
'Coupe la mise a jour ecran
Application.ScreenUpdating = False
'Initialisation des variables
lig = 1
colonne = 2
Banque = CB2.Value
Courtage = ActiveSheet.Range('G7')
'Active la feuille Historique
Sheets('Feuil3').Activate
'Recherche le client selectionné
Do Until ActiveSheet.Cells(lig, colonne) = Banque Or ActiveSheet.Cells(lig, colonne) = ''
lig = lig + 1
Loop
If ActiveSheet.Cells(lig, colonne) = '' Then
MsgBox 'Le client est introuvable dans le tableau Historique'
Else
'Recherche la premiere ligne vide pour ce client
Do Until ActiveSheet.Cells(lig, colonne) = ''
colonne = colonne + 1
Loop
'Colle le montant dans la cellule
ActiveSheet.Cells(lig, colonne) = Courtage
End If
Sheets('Feuil2').Activate
'Remet la mise a jour de l'ecran
Application.ScreenUpdating = True
End Sub
et j aimerai soit les transformer en une seule, soit les lier à un seul bouton.
Pouvez vous m aider?
j ai ces deux macros :
Private Sub CommandButton1_Click()
'Déclaration des variables
Dim lig, colonne As Integer
Dim Banque As String
Dim Courtage As String
'Coupe la mise a jour ecran
Application.ScreenUpdating = False
'Initialisation des variables
lig = 1
colonne = 2
Banque = CB1.Value
Courtage = ActiveSheet.Range('A7')
'Active la feuille Historique
Sheets('Feuil3').Activate
'Recherche le client selectionné
Do Until ActiveSheet.Cells(lig, colonne) = Banque Or ActiveSheet.Cells(lig, colonne) = ''
lig = lig + 1
Loop
If ActiveSheet.Cells(lig, colonne) = '' Then
MsgBox 'Le client est introuvable dans le tableau Historique'
Else
'Recherche la premiere ligne vide pour ce client
Do Until ActiveSheet.Cells(lig, colonne) = ''
colonne = colonne + 1
Loop
'Colle le montant dans la cellule
ActiveSheet.Cells(lig, colonne) = Courtage
End If
Sheets('Feuil2').Activate
'Remet la mise a jour de l'ecran
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
'Déclaration des variables
Dim lig, colonne As Integer
Dim Banque As String
Dim Courtage As String
'Coupe la mise a jour ecran
Application.ScreenUpdating = False
'Initialisation des variables
lig = 1
colonne = 2
Banque = CB2.Value
Courtage = ActiveSheet.Range('G7')
'Active la feuille Historique
Sheets('Feuil3').Activate
'Recherche le client selectionné
Do Until ActiveSheet.Cells(lig, colonne) = Banque Or ActiveSheet.Cells(lig, colonne) = ''
lig = lig + 1
Loop
If ActiveSheet.Cells(lig, colonne) = '' Then
MsgBox 'Le client est introuvable dans le tableau Historique'
Else
'Recherche la premiere ligne vide pour ce client
Do Until ActiveSheet.Cells(lig, colonne) = ''
colonne = colonne + 1
Loop
'Colle le montant dans la cellule
ActiveSheet.Cells(lig, colonne) = Courtage
End If
Sheets('Feuil2').Activate
'Remet la mise a jour de l'ecran
Application.ScreenUpdating = True
End Sub
et j aimerai soit les transformer en une seule, soit les lier à un seul bouton.
Pouvez vous m aider?