Macro avec 2 combobox

P

pyfux

XLDnaute Occasionnel

• 24 Mai 2012

• #2

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...

++

 

Vote positif 0 Vote négatif

Rick@

XLDnaute Occasionnel

• 24 Mai 2012

• #3

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 ???

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2012

• #4

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
@+

 

Vote positif 0 Vote négatif

Rick@

XLDnaute Occasionnel

• 25 Mai 2012

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mai 2012

• #6

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
@+

 

Vote positif 0 Vote négatif

Rick@

XLDnaute Occasionnel

• 28 Mai 2012

• #7

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 ?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 28 Mai 2012

• #8

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Mai 2012

• #9

Re : Macro avec 2 combobox

Bonjour Rick, Robert

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

Rick@

XLDnaute Occasionnel

• 28 Mai 2012

• #10

Re : Macro avec 2 combobox

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

Au plaisir!

 

Vote positif 0 Vote négatif