Probleme avec Function Match / Sheet Location Résolu/Fermé

Question

Bonjour,

Je vous explique mon probleme.
Sur la ligne 1, j'ai le nom des mois (Jan, Fev, Mar.... Dec) qui sont mis au hasard les un apres les autres. Sur la ligne 2 j'ai disons 4 prenoms (Jean, Paul, Martin, Sophie) qui alternent successivement, et au hasard.

J'aurais donc par exemple (je ne connais pas sur combien de colonne s'etend ma ligne!)
Ligne 1: Mar  -  Dec  -  Fev  -  Sep  -  Apr  -  Jan  -  Fev  -  Apr  -  Jun  -  Jun  -  Nov
Ligne 2: Paul - Jean - Soph - Mart - Paul - Jean - Jean - Paul - Mart - Soph - Mart

J'ai cree un Userform qui me donne 2 listes deroulantes, la premiere choisi le mois et la deuxieme le prenom. Quand je valide, cela cree 2 variables notees "var1" et "var2".

A la suite je continue mon code, et mon but est de trouver quel est le numero de ma colonne pour laquelle j'ai en meme temps var1 et var2.
exemple pour var1 j'ai choisi "Fev" et var2 "Jean"

J'ai pense passer par une boucle Do Loop avec la fonction Match:

'mon code quand j'active le formulairePrivate Sub CommandButton1_Click()    Dim var1 As String, var2 As String        var1 = ComboBox1.Value        var2 = ComboBox2.Value    Unload Me    Dim xa As Integer, xb As Integer        xa = 1        xb = 0        Do            xb = xb + 1            xa = WorksheetFunction.Match(var1, Worksheets("Sheet3").Range(Cells(1, xb), Cells(2, 1000)), 0)        Loop While Cells(2, xa).Value = var2End Sub


1er probleme:

Si j'ai var1 = Fev et var2 = Jean, j'aimerais pouvoir recuperer la valeur de xa = 7
Car l'association Fev et Jean est en 7eme position.
Malheureusement, j'obitent toujours 3, comme si ca faisait seulement ma fonction Match, sans prendre en compte ma boucle.

2eme probleme:

Dans le code, on remarque que mes 2 lignes contenant les mois et prenoms sont dans le Sheet3. Mais si ma cellule active est dans un autre Sheet, par exemple Sheet1, j'ai une erreur: Run-time error '1004': Application-defined or object-defined error.
J'imagine qu'il faut ecrire quelque chose dans mon code, juste apres Unload Me, pour pouvoir acceder a mon Sheet3 non? Mais je ne sais pas quoi.


Voila, merci beaucoup pour votre aide!!

Van Hoa

melanie1324 · Answer

Bonjour,

une solution :

Private Sub CommandButton1_Click()

Dim var1 As String, var2 As String
        var1 = ComboBox1.Value
        var2 = ComboBox2.Value

Unload Me

Dim xa As Integer, xb As Integer

xa = 0
        xb = 1

Do while xa <> 0

if sheets("Sheets 3").cells(1,xb) =var1 and sheets("Sheets 3").cells(2,xb) = var2 then

xa = xb
      end if
xb=xb+1
        Loop 
End Sub

Polux31 · Answer

Bonjour

mon but est de trouver quel est le numero de ma colonne pour laquelle j'ai en meme temps var1 et var2.
Ici on affiche la lettre de la colonne.

Si c'est le numéro, il faut modifier la ligne 15 comme ceci

MsgBox i

Private Sub CommandButton1_Click()
Dim var1 As String, var2 As String
Dim dercol As Long
Dim i As Long

var1 = ComboBox1.Value
    var2 = ComboBox2.Value
    dercol = Worksheets("Sheet3").Range("A1").End(xlToRight).Column

Unload Me

For i = 1 To dercol
        If Worksheets("Sheet3").Cells(1, i).Value = var1 And Worksheets("Sheet3").Cells(2, i).Value = var2 Then
       '--- Affiche la colonne 
            MsgBox IIf(i > 26, Chr(64 + i \ 26) & Chr(64 + i Mod 26), Chr(64 + i))
        End If
    Next i
    
End Sub

pijaku · Answer

Salut,

Pour la seconde question, la première étant résolue, il suffit de placer l'objet Worksheet (Sheet3) dans un bloc With-End With, et d'y référencer les objets Range qui lui appartiennent. 

Comme ceci : [j'ai repris une partie du code de Mélanie]

Do
    xb = xb + 1
    With Worksheets("Sheet3")
        xa = WorksheetFunction.Match(var1, .Range(Cells(1, xb), Cells(1, 1000)), 0)
    End With
Loop While Cells(2, xa).Value <> var2 

A noter : Le point devant Range(Cells blabla...) permet de "rattacher" l'objet Range à l'objet WorkSheets("Sheet3") référencé dans le bloc With.

Probleme avec Function Match / Sheet Location

3 réponses

Discussions similaires