Discussion :

[sniper22ch206]

Bonjour à toutes et à tous,

J'ai un problème sur Excel, ou plutôt sur la création d'une macro. Ce problème m’animant depuis déjà deux semaines et après avoir fait le tour de différents forums et autres sites d'entraides pour trouver une solution, je me permets de me tourner vers vous pour m'aider à trouver solution à mon problème.

La problématique est la suivante :
Dans un fichier contenant 47 colonnes et un nombre très important de lignes (Aujourd'hui plus de 100, mais demain sans doute beaucoup plus), je dois par le biais de choix multiple remplir automatiquement certaine colonne.
Dans un but de clarté, je vais donner un petit exemple avec 2 feuilles et 3 colonnes
Feuille 1
Colonne A -- Colonne B -- Colonne C
A -------------- B
B -------------- C

Feuille 2
Colonne A -- Colonne B -- Colonne C
A ------------- B --------- 30
B ------------- C --------- 12
A ------------- C --------- 34

Explication :
La feuille 2 est ma feuille de « Configuration possible ». Elle est renseignée à la main avec toutes les configurations possibles du couple Colonne A / Colonne B. La Colonne C elle dépend des deux premières, mais est un paramètre fixé par l’utilisateur (Moi). Afin d’éviter des erreurs, il ne doit pas y avoir de doublon dans la Feuille 2 (Imaginez deux valeurs différentes dans la colonne C pour un même couple Colonne A / Colonne B). Les colonnes A et B ne sont pas nécessairement rangées dans un ordre précis, mais plutôt au fur et à mesure du besoin. Un couple colonne A / colonne B est indissociable et a toujours une valeur de Colonne C correspondante. Les valeurs de Colonne C n’ont pas de logique avec les deux autres paramètres (sinon ça serait trop facile). Je dois pouvoir rajouter des lignes à ma guise sans avoir à modifier ma macro

La feuille 1 est ma feuille de travail. Les colonnes A et B sont renseignées manuellement (ou par le biais d’une liste déroulante ce qui serait plus pratique). La colonne C quant à elle doit se renseigner automatiquement en fonction de ce que j’ai renseigné en colonne A et en colonne B. Les valeurs sont définies dans la feuille 2 (C’est à ca qu’elle sert). Ici aussi je dois pouvoir ajouter des lignes et même rajouter des lignes non affectée par la macro (Ligne de titre par exemple pour différents blocs).

Pour faire une analogie avec une formule sous excel, ce serais une cascade de fonction si() mais si ma feuille 2 comporte 100 lignes, il me faut 100 fonctions si() imbriquées, ce qui n’est pas gérable.

J’espère avoir été claire et que vous avez compris ma demande. Si ce n’est pas le cas, n’hésitez pas à me contacter, je tenterais d’être plus clair et je pourrais même vous faire parvenir un fichier exemple (pas dans le post, c’est interdit à l’ouverture d’une nouvelle discussion).

Merci de venir à mon secours,

Cordialement,
Sniper22ch206

[groslou2]

2 solutions selon moi:

• Créer une macro bourine à mettre dans l'évènement Worksheet_Change qui va parcourir ta feuille 2 jusqu'à trouver le bon couple
• Ajouter une colonne dans ta 2ème feuille entre la B et la C qui concatène les 2 premières (avec un caractère exotique du type "@" entre) et faire un RECHERCHEV dans ta feuille 1 sur la même concaténation des colonnes

Perso, la 2ème paraît plus rapide.
Pour la concaténation, il faut un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A2&"@"&B2

à dérouler dans toute ta nouvelle colonne C de la feuille 2
et pour le RECHERCHEV, un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(A2&"@"&B2,feuil2!$C$2$D$500,2,FAUX)

à dérouler dans toute ta colonne C de la feuille 1

[sniper22ch206]

Je n'ai qu'une seule chose a te dire groslou2 MERCI, ce n'est pas une épine mais une poutre que tu me retire du pied. Je viens de tester ta solution (la seconde) et elle marche parfaitement bien.

Alors une fois de plus MERCI

[pgz]

Bonsoir.

Une solution VBA. Dans le module associé à la feuille 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If (Me.Range("A" & Target.Row) <> "") And (Me.Range("B" & Target.Row) <> "") Then
    Me.Range("C" & Target.Row) = fPerso(Me.Range("A" & Target.Row).Value, Me.Range("B" & Target.Row).Value)
End If
End Sub

Et dans un module Standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Public Function fPerso(ByVal A As Variant, ByVal B As Variant) As Variant
Dim v As Variant, l As Long
 
v = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion.Value
 
For l = 1 To UBound(v, 1)
    If (v(l, 1) = A) And (v(l, 2) = B) Then Exit For
Next l
 
If l <= UBound(v, 1) Then
    fPerso = v(l, 3)
Else
    fPerso = Empty
End If
 
 
v = Empty
End Function

Il n'y a alors aucune formule à mettre dans les feuilles. Il faut juste que la feuille 2 soit remplie logiquement, c'est-à-dire sans sauter des lignes.

COrdialement,

PGZ