Discussion :

[nono_le_petit_robot]

bonjour,

je débute en vba

voilà mon problème:

j'ai une macro pour insérer une ligne dans un tableur.
Pour l'une des cellules crée (dans ladite nouvelle ligne), je souhaite y intégrer une MEFC (couleur de fond si cellule vide)
N'y connaissant pas grand chose, j'utilise l'enregistreur de macro et j'obtiens le script suivant (cellule F1 sélectionnée préalablement)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Cells(1, 6).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NBCAR(SUPPRESPACE(F1))=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 8949448
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
 
et c'est là que je bloque:
 
Cells(ligne_a_inserer, 8).Select
 
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NBCAR(SUPPRESPACE(Cells(ligne_a_inserer, 8)))=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 8949448
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

je veux remplacer F1 par cells(ligne_a_inserer,8) avec ligne_a_inserer variable mais cela ne fonctionne pas (erreur 5, argument ou appel de procédure incorrect)
J'ai compris que supprespace et nbcar existent en excel mais pas en vba (et il n'existe à ma connaissance que des fonctions qui s'approchent de ces dernières , comme trim pour supprespace) et je suppose que ces deux fonctions n'acceptent que des noms de cellules "en dur".

Je coince donc pour rendre variable l'argument de ces fonctions ou bien si cela n'est pas possible pour trouver une alternative

Merci pour votre aide,

cordialement,

nono_le_petit_robot

[Al__22]

Si j'ai bien compris c'est ton ligne_a_inserer qui doit changer mais c'est i qui change ?
Pourquoi ne pas remplacer ligne_a_remplacer par i ?

[nono_le_petit_robot]

merci de répondre rapidement,

désolé erreur de frappe de ma part: lire ligne_a_insérer à la place de i

pardon

[Al__22]

Le problème reste le même il faut que tu donne une valeur à ta variable si tu veux qu'elle fonctionne sinon elle reste vide est tu as forcément une erreur

[nono_le_petit_robot]

merci de votre réponse

ligne_a_inserer a bien une valeur dans ma macro.
exemple j'insère une ligne 45 donc ligne_a_inserer =45

j'ai mis une msgbox pour vérifier

le problème vient du fait que le format supprespace et nbcar étant des fonctions excel mais pas vba, elles n'acceptent rien d'autre en argument que des noms de cellules en A1....ZZ999999999999 => cells (ligne_inserer,8) / cells (ligne_inserer,8).value / activecell / activecell.name ne fonctionnent pas

[Al__22]

Je viens de comprendre essaye plutôt Cells(ligne_a_inserer, 8).Address