Pourquoi dupliquer les données dans une troisième colonne? Chaque fois que vous avez besoin de la date «combinée», allez simplement la chercher, mais ne la stockez pas deux fois.

Option Explicit    '<<-- always have this


Sub doFindControl()

    Dim a As Range
    Dim c As Range  '<<-- add this
    Dim colDate As Long, colNumber As Long, colBlank As Long  '<<--add this
    Dim exceptions As Worksheet
    Set exceptions = ActiveWorkbook.Worksheets("Exceptions")
    For Each c In exceptions.Range("A1:Z1")
    
        ' first find the 2 key columns
        If InStr(c, "Control") > 0 Then
        
            If InStr(c, "Date") > 0 Then
                colDate = c.Column
            
            ElseIf InStr(c, "Number") > 0 Then
                colNumber = c.Column
            End If
        ' second look for the first blank column for you to put results in
        ElseIf c.Text = "" Then
                colBlank = c.Column
                Exit For    ' stop looking after its found
        End If
        
    Next c

    ' now you have the 2 FROM columns, and the TO column
    MsgBox (colDate & " " & colNumber & " " & colBlank)
    ' and you can loop thru all the rest of the rows doing combine

End Sub

Comment écrire la condition

Pour ce qui est de vérifier si la valeur de la cellule est "Date de contrôle" avec un seul espace ou une avec deux espaces, il existe deux façons de procéder:

Utilisez l'opérateur like

L' opérateur like facilite la comparaison d'une chaîne à un modèle de base. Dans cet exemple, l'utilisation du caractère générique * (zéro ou plusieurs caractères) retournera vrai quel que soit le nombre d'espaces entre le Control et la Date .

Public Sub Demo()
    Dim cell As Range
    For Each cell In Exceptions.Rows(1).Cells
        If cell.Value2 Like "Control*Date" Then
            ' Do something with that cell
        End If
    Next cell
End Sub

Utilisez l'opérateur or

Utilisation de l' opérateur ou ok à utiliser également, mais pas flexible et peut-être un peu plus difficile à voir ce qui se passe pour votre exemple spécifique.

For Each cell In Exceptions.Range("A1:Z1")
    ' Do something...
Next cell

Nom de code de la feuille de travail

Chaque feuille de calcul a ce qu'on appelle un nom de code . Il s'agit d'une référence qui peut être appelée directement dans le code vers cette feuille de calcul spécifique par son nom.

Pour définir ce nom, dans la fenêtre des propriétés, mettez à jour la propriété du name

Donc au lieu de

Dim Exceptions As Worksheet
Set Exceptions = ActiveWorkbook.Worksheets("Exceptions")
For Each cell In Exceptions.Range("A1:Z1")
    ' Do something...
Next cell

vous pouvez appeler la référence de feuille de calcul directement

If cell.Value2 = "Control Date" Or cell.Value2 = "Control  Date" Then
    ' Do something with that cell
End If

Mettre ensemble

• Au lieu d'utiliser c pour votre variable, j'aime rendre mes variables plus faciles à lire et à suivre, j'ai donc utilisé cell .
• En outre, au lieu de coder en dur vos colonnes d'en-tête dans la plage, vous pouvez boucler les cellules de la première ligne entière. C'est une suggestion d'option cependant.
• Enfin, soyez plus explicite dans la propriété que vous recherchez dans votre Cell . Dans mon exemple, j'utilise .value2 pour montrer que je recherche la valeur de cette cellule.

If cell.Value2 Like "Control*Date" Then
    ' Do something with that cell
End If

Merci pour toutes les réponses! La réponse de Robert Todar m'a conduit à mon moment d'ampoule, et je ne peux pas croire à quel point la réponse était simple. Tout ce que j'avais à faire était de changer ce code:

Cells.Find(What:="Control*Date", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

à:

Cells.Find(What:="Control Date", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate