concaténer deux références de cellule

Version imprimable

Bonjour,

J'ai une Feuil1 contenant les références de cellule à récupérer dans la Feuil2.

Exemple, en Feuil1, j'ai la cellule B20 qui contient la valeur "A". Cette valeur A signifie qu'il faut récupérer la valeur contenu dans la colonne A de la Feuil2

Dans le but d'effectuer une comparaison sur plusieurs cellules, je souhaite récupérer les valeurs de deux cellules en Feuil2 en faisant appel à leur référence en Feuil1.

Aussi, voici mon code vba :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim reference1, reference2 as String 'La récupération de mes références cellule reference1 = Worksheets("Feuil1").Range("B20").Value & NoLig2 reference2 = Worksheets("Feuil1").Range("C20").Value & NoLig2 'Et ma comparaison If Worksheets("Feuil2").Range("D" & NoLig & "").Value = Worksheets("Feuil2").Range( _ reference1 & reference2).Value Then 'Si condition est vraie, etc.....
J'ai une erreur 1004 sur ma ligne de comparaison. Si je ne compare que la valeur contenu dans une seule des références, cela fonctionne. J'ai l'impression que c'est la concaténation qui pose problème. Auriez-vous une idée ?

31/03/2019, 16h28
Algoplus
Bonjour,

En supposant que les variables NoLig et NoLig2 sont initialisées, reste,a priori, deux erreurs:

Code:

If Worksheets("Feuil2").Range("D" & NoLig & "").Value

& "" est en trop
Code:

1 2 3 = Worksheets("Feuil2").Range( _ reference1 & reference2).Value Then
si NoLig2=5 partexemple
reference1 sera de la forme A5
reference2 sera de la forme B5

Range(reference1 & reference2) deviendrait Range("A5B5"). A5B5 n'est pas une plage de cellules correctement spécifiée.

De plus on ne peut pas obtenir la "Value" d'une plage., mais d'une cellule.

Et, même si la plage est correctement spécifiée, on ne peut pas comparer la valeur d'une cellule avec une plage (qui comporte les "value" des cellules qui la composent)

A+
31/03/2019, 17h08
ifiii
Effectivement, je n'ai pas bien recopié mon code et oublié l'espace entre chaque référence
Code:

1 2 3 = Worksheets("Feuil2").Range( _ reference1 & " " & reference2).Value Then
Quand je fais le même appel directement sur les cellules concernées, sans faire appel au référence, ça fonctionne bien :
Code:

1 2 3 'Fonctionne parfaitement f Worksheets("Feuil2").Range("D" & NoLig & "").Value = Worksheets("Feuil2").Range("A" & NoLig2 & " " & "B" & NoLig2 & "").Value Then
J'ai besoin ici de vérifier que la valeur qui est contenue dans ma cellule D1 soit la même que la concaténation de la cellule A1 et B1.

Il semble que la concaténation ne soit plus possible lorsque je passe par les références des cellules et non par les cellules directement... quelque chose m'échappe ?

bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
    Dim Celref1 As Range, Celref2 As Range, Celref3 As Range, reference$, NoLig&, NoLig2&
    'NoLig = X
    'NoLig2 = Y
    '
    'La récupération de mes références cellule
    With Sheets("Feuil2")
        Set Celref1 = .Range(Sheets("Feuil1").Range("B20").Value & NoLig2)    'ref1 en tant que range et non string (peut être réutilisé plus tard dans la macro lecture/écriture)
        Set Celref2 = .Range(Sheets("Feuil1").Range("C20").Value & NoLig2)    'ref2 en tant que range et non string (peut être réutilisé plus tard dans la macro lecture/écriture)
        Set Celref3 = Sheets("Feuil2").Range("D" & NoLig)    'la D+NoLig          'ref3 en tant que range et non string (peut être réutilisé plus tard dans la macro lecture/écriture)
    End With
    '
    'Et ma comparaison
    reference = Replace(Join(Array(Celref1.Value, Celref2.Value, Celref3.Value)), Celref1.Value, "")
    'Si condition est vraie, etc.....
    If reference = "" Then    'si les 3 cellules ont la meme valeur
        '...........faire ceci ou cela
    Else    'sinon
        ' alors faire ceci
    End If
    '
    'exemple de réutilisation
    '
    'MsgBox Celref1.Value
    'MsgBox Celref1.Value
    'MsgBox Celref1.Value

01/04/2019, 00h34
eriiic

Bonjour,

avec :

Code:

Worksheets("Feuil2").Range("A" & NoLig2 & " " & "B" & NoLig2 & "").Value

tu concatènes 2 références pour en faire une référence erronée. "A2 B2" ne correspond à rien, tout autant que "A2B2" auparavant.
Si tu veux concaténer les 2 cellules c'est :

Code:

Worksheets("Feuil2").Range("A" & NoLig2).value & Worksheets("Feuil2").Range("B" & NoLig2).value

A toi de remplacer A et B par ce qu'ils doivent être.
eric

Bonjour

Plusieurs mots du message de ifiii et de son titre font qu'il m'est quelque peu malaisé de déterminer avec précision ce qu'il entend par "concaténation de références"

Je préfère dans ces conditions répondre de la manière suivante qui traite trois hypothèses distinctes d'interprétation :
Code:

1 2 3 4 5 6 7 8 9 ligne1 = 2 ligne2 = 4 lettre1 = "A" '(ou le contenu d'une cellule; exemple Range("Y" & ligne1.value)) lettre2 = "B" '(ou le contenu d'une cellule; exemple Range("Z" & ligne2.value)) MsgBox Range(lettre1 & ligne1 & ":" & lettre2 & ligne2).Address '---->> concaténation aboutissant à une plage continue MsgBox Union(Range(lettre1 & ligne1), Range(lettre2 & ligne2)).Address ' ---->> concaténation aboutissant à une nouvelle plage constituée des deux plages MsgBox Range(lettre1 & ligne1).Value & Range(lettre2 & ligne2).Value ' ----->> concaténation des valeurs contenues dans deux cellules

Citation:

J'ai besoin ici de vérifier que la valeur qui est contenue dans ma cellule D1 soit la même que la concaténation de la cellule A1 et B1.

Alors se serait
Code:

1 2 3 4 5 6 7 8 NoLig=1 ... reference1 = Worksheets("Feuil1").Range("A" & NoLig").Value reference2 = Worksheets("Feuil1").Range("B" & NoLig").Value 'Et ma comparaison If Worksheets("Feuil2").Range("D" & NoLig ).Value = reference1 & reference2 Then ...
à la feuille près ....

Citation:

J 'ai besoin ici de vérifier que la valeur qui est contenue dans ma cellule D1 soit la même que la concaténation de la cellule A1 et B1.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Dim Celref1 As Range, Celref2 As Range, Celref3 As Range, OK As Boolean, NoLig&, NoLig2&
    'NoLig = X
    'NoLig2 = Y
    '
    'La récupération de mes références cellule
    With Sheets("Feuil2")
        Set Celref1 = .Range(Sheets("Feuil1").Range("B20").Value & NoLig2)    'ref1 en tant que range et non string (peut être réutilisé plus tard dans la macro lecture/écriture)
        Set Celref2 = .Range(Sheets("Feuil1").Range("C20").Value & NoLig2)    'ref2 en tant que range et non string (peut être réutilisé plus tard dans la macro lecture/écriture)
        Set Celref3 = .Range("D" & NoLig)    'la D+NoLig          'ref3 en tant que range et non string (peut être réutilisé plus tard dans la macro lecture/écriture)
    End With
    '
    'Et ma comparaison
    OK = Join(Array(Celref1.Value, Celref2.Value)) = Celref3.Value
 
    'Si condition est vraie, etc.....
    If reference Then     'si la valeur de ref1 et ref2 est = a ref3
        '...........faire ceci ou cela
    Else    'sinon
        ' alors faire ceci
    End If
    '
    'exemple de réutilisation
    '
    'MsgBox Celref1.Value
    'MsgBox Celref2.Value
    'MsgBox Celref3.Value