Concatener dans VBA pour définir des conditions unique

Bonjour à tous,

J'ai une liste à affecter tout les mois à plusieurs personnes et je dois du coup passer par un CONCATENER pour y arriver (car 3 cellules donnent une clé unique). Aujourd'hui j'aimerai le mettre sur un code car le fichier est tout les mois exporté d'un logiciel, pas d'historisation etc.. ^^'

Par conséquent j'ai 2 soucis :

1- 1ERE CONDITION : j'aimerai que le résultat aille en colonne Initial de la LigTab (soit en I9 du fichier).Peut-être que je m'y prend mal ici pour définir ma colonne Initial.. ?

2- 2EME CONDITION : j'aimerai que le résultat aille en colonne Initial de la LigTab (soit en I8 du fichier) mais pour le coup je ne sais pas comment concat en VBA...

Sub AffectName()
  Dim Sht As Worksheet
  Dim dColTab As Long, ColTab As Long
  Dim dLigTab As Long, LigTab As Long
  Dim Initial As Range

  ' Définition de la feuille à traiter
  Set Sht = ThisWorkbook.Sheets("Feuil1")

  ' Dernière ligne du tableau, ici...
  dLigTab = Sht.Range("A" & Rows.Count).End(xlUp).Row

  ' Dernière colonne du tableau, ici
  dColTab = Sht.Cells(5, Sht.Columns.Count).End(xlToLeft).Column

'""""retrouver colonne nommée Initial
Set Row = Rows(5).Find(what:="Initial", LookAt:=xlWhole)
If Not Row Is Nothing Then Col = Row.Select

Set Initial = ActiveCell.Resize(1000, 1)               '
Names.Add Name:="Initial", RefersToR1C1:=Initial       '
'"""""

'""""Pour chaque ligne
  For LigTab = 8 To dLigTab

    ' 1ERE CONDITION:
    'If Sht.Range("A" & LigTab) = "0.6 - Agent Commissions" Then
    'Sht.Cells(LigTab, Initial) = "pas lolopix" 'résultat en I9
        'End If

    ' 2EME CONDITION: (je souhaite concatener A,B,C de LigTab)
'    If Sht.Range("A" & LigTab, & "B" & LigTab, & "C" & LigTab) = "0.6 - Agent Commissions   622211CNCK" Then
'    Sht.Cells(LigTab, Initial) = "Lolopix" 'résultat en I8
        'End If

  Next LigTab

End Sub

D'avance merci :D à tous, bon lundi!!!

Bonjour,

Pour la concatenation par vba c'est presque çà mais on ne fait pas un range de tout les textes avec des " & "

On fait un range & un range & un range

If Sht.Range("A" & LigTab) & Sht.Range("B" & LigTab) & Sht.Range("C" & LigTab) = "0.6 - Agent Commissions   622211CNCK" Then

Merci Xmenpl :) pour le deuxième soucis. Pour le 1ier je vais pouvoir bidouiller un truc ;)

encore merci,

J'ai rajouté une demande via inputbox pour mon soucis n°1, comme ça si la colonne est renommée ou quelle a bougé, je reste maître de l'endroit où mon affectation tombera :D