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

[nono_le_petit_robot]

cela ne fonctionne pas non plus.

J'ai l'impression que la seule solution serait un script alternatif


merci pour votre réponse

[Al__22]

Si cela devrait fonctionner car cela renvoi à ta valeur de cellule il faut juste que tu transforme ta macro comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
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

[nono_le_petit_robot]

pas plus de succès ici malheureusement...

merci

[Al__22]

J'ai pas mis le .address aussi c'est normal regarde donc je vais pas tout faire

Code :

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

1
2
3
4
5
6
7
8
9
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NBCAR(SUPPRESPACE(" & Cells(ligne_a_inserer, 8).Address & "))=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

[nono_le_petit_robot]

merci bien, cela fonctionne

je suis friand pour une explication détaillée de " & Cells(ligne_a_inserer, 8).Address & "

merci

[Al__22]

Pas de soucis :

Code :

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

Formula1:= _

Ici tu indique que tu vas ajouter une formule dans la cellule sélectionner ou MEFC etc.

Code :

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

"=NBCAR(SUPPRESPACE(" & Cells(ligne_a_inserer, 8).Address & "))=0"

Et ici tu as ta formule or quand tu veux mettre exactement ce que tu écris dans excel (et non plus dans VBA) tu mets des ".
Du coup pour ajouter un bout de code VBA à ta formule il faut utiliser le signe & puis mettre ton bout de code
Si tu veut continuer idem tu mets un &
Le .Address récupère sous format $R1$C1 (R = ligne, C = colonne) l'adresse de ta cellule

VBA va comprendre :

Je dois écrire :
=NBCAR(SUPPRESPACE( et l'adresse de Cells(ligne_a_inserer, 8) soit $R1$C1 et ))=0

Donc pour excel ce que tu as écris il va le comprendre ainsi :

Je dois écrire la formule :
=NBCAR(SUPPRESPACE($R1$C1))=0

En espérant avoir été suffisamment clair

Bonne journée

[nono_le_petit_robot]

merci beaucoup pour ces informations, je me coucherai moins bête ce soir

merci pour votre aide

[Al__22]

Tout le plaisir est pour moi