Bonjour,

j'aimerais comprendre pourquoi les très simple code suivant ne fonctionne pas :
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
 
Sub TEST()
 
Dim cellA As Range
 
With ThisWorkbook.Worksheets("Cible")
 
Set cellA = .Range("A1:A1")
.Range("B1:C2").Value = ThisWorkbook.Worksheets("Source").Range("B2:C3").Value & ThisWorkbook.Worksheets("Source").Range("B2:C3").Value
 
cellA = "Test"
 
End With
 
 
End Sub
J'ai un erreur "incompatibilité de type".
Outre cette erreur, pourriez-vous svp m'aiguiller pour le besoin suivant (dont je suis loin) :

mon but est d'avoir une feuille A avec des valeurs et de créer une macro qui va remplir les cellules d'une feuille B en utilisant les données contenues dans la feuille A (concénation de la cellule courante + la cellule de la première ligne) après avoir fait un recherchev dans la feuille C.

Exemple :
Feuille A :
Ligne 1 CLEF KEY PASS
Ligne 2 AA BB CC
LIgne 3 BB AA CC
Je fais la concéténation pour chaque cellule de sa valeur avec celle de la cellule qui se trouve sur la première ligne de la même colone, ce qui me permet d'obtenir la clef pour le recherchev.
Ex pour la collone A : AA & CLEF puis BB & CLEF
Feuille C :
Source Cible
AACLEF XXX
BBCLEF XYZ
AAKEY XYY
BBKEY YAZ
CCPASS ANE
Resultat sur feuille B
Ligne 2 XXX YAZ ANE
Ligne 3 XYZ XYY ANE
Bien entendu, je ne vous demande pas de faire le code à ma place mais de m'aider à le construire par étape :
- comprendre comment remplir un range avec les valeurs concaténées de 2 ranges
- ensuite je vais essayer en concaténant 2 ranges qui n'ont pas la même taille etc.

merci de votre aide
Cladsam