Discussion :

[floflo50100]

Bonjour,
Je recherche à faire un mise en forme conditionnelle de cette forme :
Si NBval (A1:A7)>0 alors les cellules "vides" entre A1:A7 sont égal à /.
J'ai écris ceci mais il ne fonctionne pas :
=Si(NBVAL($A17:$AM17)>0;ESTVIDE($A17:$AM17)="/")
Quelqu'un a t-il une solution ?

[eric4459]

Bonjour FloFlo50100,
Tu peux essayer ceci:

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
 
Sub Test()
Dim Sht As Worksheet
Dim Rng As Range
Dim LastVal As Integer
Dim i As Integer
Set Sht = ThisWorkbook.Worksheets("Feuil1")
Set Rng = Sht.Range("A1")
Rng = Rng.Offset(0)
 
With Sheets("Feuil1")
    LastVal = .Cells(.Rows.Count, 1).End(xlUp).Row - 1 ' On compte le nombre de valeurs de la colonne A
End With
 
For i = 0 To LastVal
If Rng.Offset(i, 0) = "" Then
Rng.Offset(i, 0) = "/"
End If
Next i
End Sub

J'ai supposé que les valeurs à traiter étaient situées en colonne A ( entre A1 et A13 dans mon test mais ce code est valable si tu as plus ou moins de valeurs)
Eric

[floflo50100]

Bonjour,
Est-il simplement possible de faire ceci par une mise forme conditionnelle? Car j'ai atteint le maximum de taille de ma macro...

[Nico Chg]

Bonjour,

Si tu ne veux pas le faire par Macro, tu n'es pas dans le bon forum ! Je te redirige vers le bon forum dans ce cas

[floflo50100]

Ah ok ! Autant pour moi je vais créer ce post dans le bon forum dans ce cas..

[Menhir]

Bonjour,
Est-il simplement possible de faire ceci par une mise forme conditionnelle? Car j'ai atteint le maximum de taille de ma macro...

Euh... 121 lignes, c'est trèèèèèès loin d'être la taille maximum d'une macro. La plupart de mes macros font plusieurs centaines de lignes sans problème.

Ou alors c'est que tu utilises le terme "taille" dans un autre sens que celui que je comprend.

[floflo50100]

D'accord oui j'ai peut être halluciné du coup, sais tu comment faire un code de cette forme :
If cellule=vide sur la dernière ligne (Last row ?) entre (A:AM) then
Cellule = "/"
Je suis totalement perdu en prog...

[eric4459]

Peux-tu préciser ce que tu veux?
Travailler sur des données en colonnes ?

Si NBval (A1:A7)>0 alors les cellules "vides" entre A1:A7 sont égal à /.

ou travailler sur des données en lignes?

NBVAL($A17:$AM17)>0

ce n'est pas exactement la même chose
Eric

[Menhir]

D'accord oui j'ai peut être halluciné du coup, sais tu comment faire un code de cette forme :
If cellule=vide sur la dernière ligne (Last row ?) entre (A:AM) then
Cellule = "/"

Code :

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

1
2
3
4
5
6
7
8
Dim Fin as Long
Dim MaCel as Range
 
Fin = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
 
For Each MaCell in Range("A"&Fin&":AM"&Fin)
   If MaCell.Value = "" then MaCell.Value = "/"
Next MaCell

Je suis totalement perdu en prog...

Ca n'a rien d'une fatalité immuable.

[Menhir]

=ESTVIDE($A17:$AM17)="/"

Une chose est sûre : ça, ça ne peut pas marche.
Une fonction Excel renvoie une valeur, ni plus ni moins. Elle ne peut pas servir à modifier le contenu d'une autre cellule.

Pour ton problème, place dans tes cellules vide la formule :

Code :

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

=Si(NBVAL($A17:$AM17)>0;"/";"")

Si tes cellules ne sont plus vides, ça voudra dire soit qu'un opérateur aura saisi quelque chose dedans (ce qui, de fait, écrasera la formule) soit que ces cellules contiennent déjà une formule et dans ce cas, il faudra intégrer la formule à question à celle que je te propose.