Rick@
XLDnaute Occasionnel
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
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