Re : Vsearch d'une cellule concaténée
Bah en anglais ou en francais le VBA reste le même non???
Moi j'avais commencer avec ça... je voulais le mettre dans la worksheet_change
Dim DerLig As Integer, LigSel As Integer
Dim LSearch As Integer, VSearch As String
Dim Sht As Worksheet
Set Sht = ActiveSheet
LigSel = Selection.Cell
' Recherche la valeur de 'D' dans la feuille 'Global'
Cà c'est la cellule qui équivaut à deux cellules sur l'autre feuille
VSearch = Sht.Range("D" & LigSel)
C'est probablement là qu'il faudrait que j'ajoute la commande pour le faire regarder deux colonnes en même temps =(
If VSearch = "" Then
MsgBox "La ligne sélectionnée, ne contient pas de valeur dans la cellule 'A'"
Range("A" & LigSel).Select
Exit Sub
End If
LSearch = LigFind("Global", 1, VSearch)
If LSearch = 0 Then
MsgBox "L'inscription n'a pas été trouvé dans le registre global"
Else
With Sheets("Global")
.Range("k" & DerLig) = Sht.Range("A" & LigSel)
End With
End Sub
(Certaines variables proviennent d'un module)
J'ai envoyé un fichier précèdemment qui explique plus en détail ce qu'il faut faire car ma commande est peut-être complètement nul =(