VBA IF AND IF

Bonjour je ne parviens à écrire correctement ce petit bout de code VBA basé sur 2 conditions réunis.

Je fais surement une erreur que je ne parviens à trouver :

voici mon code :

Dim cel As Range

For Each cel In Range("L4:L18")

If cel.Value = "" And cel(cel.Row, 10) <> "" Then

cel.Formula = "=OFFSET(INDEX('Listes eleves'!R7C3:R21C8,MATCH(RC10,'Listes eleves'!R7C2:R21C2,0),1),0,0)"

Next

Voci le fichier exemple avec les explications nécessaire.

Merci par avance pour votre aide ...

Bien cordialement

Damien

Bonsoir,

Avec Formula il faut utiliser :

cel.Formula = "=OFFSET(INDEX('Listes eleves'!$C$7:$H$21,MATCH($J4,'Listes eleves'!$B$7:$B$21,0),1),0,0)"

A+

Bonjour Galopin01,

merci pour ton aide, cependant mon code VBA coince encore ... lorsque je lance la macro, il ne se passe rien ...

La formule est probablement fausse mais pour la macro il faut aussi corriger :

If cel.Value = "" And cells(cel.Row, 10) <> "" Then

En fin compte il faudrait probablement écrire :

Sub galopin()
Dim cel As Range
For i = 4 To 18
   If Cells(i, 12) = "" And Cells(i, 10) <> "" Then
      Cells(i, 12).Formula = "=INDEX('Listes eleves'!$C$7:$H$21,MATCH($J" & i & ",'Listes eleves'!$B$7:$B$21,0),1)"
   End If
Next
End Sub

A+

Merci l'erreur était bien là !

Merci beaucoup, cela semble bien fonctionner

Je pense que cette formule n'est pas fameuse !

Revoir ma réponse corrigée... (plus haut)