Rendre un bouche trou plus universel

[Risleure]

Bonjour le Forum

Ci dessous la macro que je souhaite rendre plus universelle.
Cette macro s'applique sur une sélection de cellules d'une feuille. Elle me permet de remplacer une cellule vide par #N/A ce qui m'évite les trous dans les graphes XY avec valeurs manquantes.

Mais quand dans la sélection qui peut donc être quelquonque il y a déjà un #N/A ça plante pour incompatibilté de type. :sad
Il faut donc faire un double test savoir si la valeur dans la cellule est "" ou bien #N/A mais je ne sais pas tester #N/A


Sub BoucheTrou()
Dim Cellule As Range
For Each Cellule In Selection
If Cellule.Value = "" Then Cellule.Value = "#N/A"
Next Cellule
End Sub

Merci pour votre temps

 

[PascalXLD]

Re : Rendre un bouche trou plus universel

Bonjour

un premier essai

Sub BoucheTrou()
Dim Cellule As Range
For Each Cellule In Selection
If Not IsError(Cellule.Value) Then
If Cellule.Value = "" Then Cellule.Value = "#N/A"
End If
Next Cellule
End Sub

 

[Catrice]

Re : Rendre un bouche trou plus universel

Bonjour,

Tu peux essayer ceci :

Sub BoucheTrou()
Dim Cellule As Range
For Each Cellule In Selection
If Not Application.IsNA(Cellule) Then
If Cellule.Value = "" Then Cellule.Value = "#N/A"
End If
Next Cellule
End Sub

Edit : Bonjour Pascal

 

[Risleure]

Re : Rendre un bouche trou plus universel

Merci Pascal
Merci Catrice ... c'est plus drole que merci Pascal !!!

Vos deux propositions fonctionnnent.

A+