Microsoft 365 Comment dit-on en VBA "fait partie de" ?

If ActiveCell.Column = 1 Then 'uniquement pour la colonne A
  'ton code ici, qui s'exécutera seulement si la colonne de
  'la cellule active est la 1ère colonne, donc la colonne A.
End If

'Formule pour créer le fichier Word avec le code barre du numéro de référence sélectionné

Private Sub CommandButton3_Click()

If Not Application.Intersect(ActiveCell.Rows, Range("A:A")) Is Nothing Then

'If ActiveCell.Column = 1 Then

Application.ScreenUpdating = False

Dim enregistrersous As String
enregistrersous = "C:\Users\" & Environ("username") & "\Desktop\" & ActiveCell.Value & " (barcode).docx"

Set wordapp = CreateObject("word.Application")
wordapp.documents.Open "C:\Users\" & Environ("username") & "\support files\support file (barcode).docx"
wordapp.Visible = True

ActiveCell.Offset(0, 4).Font.Size = 85
ActiveCell.Offset(0, 4).Copy
wordapp.activedocument.Range.PasteSpecial (xlPasteValues)
ActiveCell.Offset(0, 4).Font.Size = 11

Application.CutCopyMode = False

Application.DisplayAlerts = False

wordapp.Application.activedocument.SaveAs enregistrersous
wordapp.Application.Quit

Application.DisplayAlerts = True

Else

MsgBox "Please select a reference number"

End If

End Sub

Sub Job(ligne As Long) 'ligne est un argument de la sub Job, de type entier long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
End Sub

Sub test()
    Dim chemin$, x As Boolean, wordapp As Object, part$
    x = ActiveCell.Column = 1    'determine un boolean selon si la colonne active est la "A"
    part = Sheets(1).Cells(ActiveCell.Row, "E")    ' partie du nom dans la colonne "E" de la meme ligne
    chemin = "C:\Users\" & Environ("username") & "\Desktop\" & part & " (barcode).docx"    'chemin
    If Dir(chemin) = "" Then MsgBox "ce fichier n'existe pas": Exit Sub    ' test de l'existance du fichier avant d'essayer de l'ouvrir

    If x Then
        Application.ScreenUpdating = False

        Set wordapp = CreateObject("word.Application")
        wordapp.documents.Open chemin
        wordapp.Visible = True

        Sheets(1).Cells(ActiveCell.Row, "E").Font.Size = 85
        Sheets(1).Cells(ActiveCell.Row, "E").Copy
        wordapp.activedocument.Range.PasteSpecial (xlPasteValues)
        Sheets(1).Cells(ActiveCell.Row, "E").Font.Size = 11

        With Application: .CutCopyMode = False: .DisplayAlerts = False: End With

        With wordapp.Application: .activedocument.SaveAs chemin: .Quit: End With
        Application.DisplayAlerts = True

    Else

        MsgBox "Please select a reference number"

    End If

End Sub