Macro VBA
K
Bonjour,
Je comprends pas pourquoi il me prend pas en compte Cells(j, 4) et Cells(j, 5) et Cells(j, 2)
name = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5)
If Cells(j, 3) = "FRA-BCF" Then
'Si FRA-BCF
Cells(j, 1) = "BCF Bodily claim " & Cells(j, 4) & "/" & Cells(j, 5) & " pending list " & name
Else
'Si autre que FRA-BCF
Cells(j, 1) = Cells(j, 2) & "BCF Bodily claim " & Cells(j, 4) & " pending list " & name
'[Nom compagnie] Bodily(Material) claim [n°sin AZ]/[ref compagnie] pending list Q1 2019 AZ France
End IfBonjour,
"J" est une variable, où est-ce que tu donnes une valeur à "J" ?
ric
A
Bonjour,
est ce que la variable j est initialisée ?
est ce que dans les cellules Cells(j, 4) et Cells(j, 5) et Cells(j, 2) contiennent effectivement quelque chose ?
Est ce que la macro est lancée depuis la feuille où l'on va lire et écrire des données ?
Essayer de rajouter .Value à la suite de chaque Cells(x,y) . Ex : Cells(j, 4).Value
A+
Edit bonjour Ric, désolé !
K
Bonjour à tous,
Un essai ...
Sub LaMacro()
Dim Derligne As Integer
Dim J As Integer
With ActiveSheet
Derligne = .Cells(Rows.Count, "C").End(xlUp).Row
For J = 2 To Derligne
Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
If .Cells(J, 3) = "FRA-BCF" Then
'Si FRA-BCF
.Cells(J, 1) = "BCF Bodily claim " & .Cells(J, 4) & "/" & .Cells(J, 5) & " pending list " & Name
Else
'Si autre que FRA-BCF
.Cells(J, 1) = .Cells(J, 2) & "BCF Bodily claim " & .Cells(J, 4) & " pending list " & Name
'[Nom compagnie] Bodily(Material) claim [n°sin AZ]/[ref compagnie] pending list Q1 2019 AZ France
End If
Next J
End With
End Subric