Macro avec 2 combobox

[Rick@]

Bonjour,

J'ai une problème de disposition je crois... Avec une combobox pas trop de problème mais quand j'ajoute la deuxième petit problème... Merci de me corriger.

Sub copie()
If Feuil4.ComboBox1 = "Nouveaux" Then
Rows("108:127").Copy Rows(83)
ElseIf Feuil4.ComboBox1 = "Ancien" Then
Rows("130:149").Copy Rows(83)
ElseIf Feuil4.ComboBox1 = "Global" Then
Rows("152:171").Copy Rows(83)
ElseIf Feuil1.ComboBox2 = "Commercial" Then
Rows("90:95").Copy Rows(73)
ElseIf Feuil1.ComboBox2 = "Résidentiel" Then
Rows("83:88").Copy Rows(73)
ElseIf Feuil1.ComboBox2 = "Recouvrement" Then
Rows("97:102").Copy Rows(73)
End If
End Sub
Private Sub ComboBox1_Change()
Call copie
End Sub

Private Sub ComboBox2_Change()
Call copie
End Sub

 

[pyfux]

Re : Macro avec 2 combobox

Bonjour,

Je suppose que la combobox1 est sur feuil4 et la combobox2 sur feuil1.

Par contre le "Sub Copie" est dans un module ? J'espère...

++

 

[Rick@]

Re : Macro avec 2 combobox

En fait, les deux combobox sont sur la même feuille. La macro est sur cette même feuille onglet (Visualiser code). Il n'y a pas de module. C'est peut-être la mon erreur ???

 

[Pierrot93]

Re : Macro avec 2 combobox

Bonjour,

pette remarque au passage, avec If et ElseIf ton test s'arretera à la premirèe condition qui se vérifiera.. pas sûr que ce soit ce que tu veux..... Pourquoi ne pas avoir placer les codes directement dans les événements "click" des 2 combo...

bonne journée
@+

 

[Rick@]

Re : Macro avec 2 combobox

Bonjour et merci pour le retour,

Les combos doivent opérer sur "Change". Avec cette macro ça fonctionne sauf que pour les conditions ("Nouveaux" et "Résidentiel") le délais n'en fini plus... Surtout "Résidentiel" >5min...

Private Sub ComboBox1_Change()

If Feuil4.ComboBox1 = "Nouveaux" Then
Rows("108:127").Copy Rows(83)
ElseIf Feuil4.ComboBox1 = "Ancien" Then
Rows("130:149").Copy Rows(83)
ElseIf Feuil4.ComboBox1 = "Global" Then
Rows("152:171").Copy Rows(83)

End If
End Sub
Private Sub ComboBox2_Change()
If Feuil4.ComboBox2 = "Commercial" Then
Rows("90:95").Copy Rows(73)
ElseIf Feuil4.ComboBox2 = "Résidentiel" Then
Rows("83:88").Copy Rows(73)
ElseIf Feuil4.ComboBox2 = "Recouvrement" Then
Rows("97:102").Copy Rows(73)
End If
End Sub

 

[Pierrot93]

Re : Macro avec 2 combobox

Bonjour,

A voir si tu n'as pas des formules sur les lignes copiées... si c'est le cas il y a lieu de mettre la calcul "sur ordre" puis de le remettre sur auto en fin de procédure...

bonne journée
@+

 

[Rick@]

Re : Macro avec 2 combobox

Bonjour,

C'est le cas les lignes à copier contiennent des formules. Que veux tu dire par mettre le calcul sur ordre puis sur auto ?

 

[Robert]

Re : Macro avec 2 combobox

Bonjour le fil, bonjour le forum,

Que de temps perdu alors qu'un fichier exemple aurait certainement permis de résoudre ton problème depuis belle... Lurette ! Bravo, tu gagnes un carambar.

 

[Pierrot93]

Re : Macro avec 2 combobox

Bonjour Rick, Robert🙂

regarde cela, mais une petite recherche sur le forum t'aurais apportée la solution... :

Application.Calculation = xlCalculationManual
'ton code
Application.Calculation = xlCalculationAutomatic

bon après midi
@+

 

[Rick@]

Re : Macro avec 2 combobox

Merci de votre patience et de votre aide, j'avance...

Au plaisir!