> Tous les forums > Forum Bureautique
 Je ne comprend pas cette erreurSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vieuxmonsieur
  Posté le 16/03/2019 @ 08:23 
Aller en bas de la page 
Astucien

Bonjour à tous

J’essaie de faire cette fonction et je ne comprends pas pourquoi j'obtiens cette erreur sur Elseif

Je vous remercie de m'éclairer

Publicité
Banzaiii
 Posté le 16/03/2019 à 09:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Slt

Un espace entre Else et If ?

vieuxmonsieur
 Posté le 16/03/2019 à 09:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour Banzaiii

Non il n'y a pas d'espace parasite

Si je met Else seul c'est bon mais pas avec Elseif ou ElseIf



Modifié par vieuxmonsieur le 16/03/2019 09:33
vieuxmonsieur
 Posté le 16/03/2019 à 11:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

En fait, j'ai utilisé Select Case pour régler ce problème incompréhensible pour moi

apolinaire
 Posté le 16/03/2019 à 11:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Même si tu as résolu ton problème avec Select Case, voici mon explication histoire de lever ce mystère.

La structure d'utilisation d'un ElseIf est la suivante :

If [condition] Then

ElseIf [condition] Then

End If

Dans ton cas, il n'y a pas de condition après ElseIf et un End If en trop dans les 3 dernières lignes.

On peut croiser les différents Else comme ceci. Attention, un seul End If.

If [condition] Then

ElseIf [condition] Then

Else

End If

apolinaire
 Posté le 16/03/2019 à 12:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Pour le fun, voilà un entrelacement de If, Then, Else, ElseIf et Select Case que j'ai écrit dans le code de mon programme de généalogie.

vieuxmonsieur
 Posté le 16/03/2019 à 13:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour apolinaire

Merci pour ton intervention cependant pas de changement significatif

apolinaire
 Posté le 16/03/2019 à 14:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Petite correction :

ElseIf ("A2")="V" Then

sans If supplémentaire...



Modifié par apolinaire le 16/03/2019 14:04
vieuxmonsieur
 Posté le 16/03/2019 à 15:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bien vu, moi je me rends chez mon opticien

Merci beaucoup et bonne soirée

Publicité
vieuxmonsieur
 Posté le 16/03/2019 à 22:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re

Par contre, il m'est impossible de faire fonctionner ce code placé dans :

Private Sub Worksheet_Change(ByVal Target As Range)

Je sollicite de nouveau vote aide qui m'est très précieuse

En vous remerciant

apolinaire
 Posté le 17/03/2019 à 11:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Voici ci-dessous un test qui fonctionne chez moi. Comme je n'ai pas été jusqu'à créer des boutons de commande, j'ai remplacé les actions par des MsgBox.

Private Sub Worksheet_Change(ByVal Target As Range) 'dès qu'une cellule change n'importe où dans la feuille
'ATTENTION : les tests d'égalité ci-dessous sont sensibles à la casse. T n'est pas égal à t.

If Range("A2") = "T" Then 'si la cellule A2 = T, on allume le bouton "Traité"
MsgBox ("A2 = T")
ElseIf Range("A2") = "V" Then 'si la cellule A2 = V, on allume le bouton "MajBase"
MsgBox ("A2 = V")
Else 'sinon, on allume le bouton "ValiderSaisie"
MsgBox ("A2 = autre chose que T ou V")
End If

End Sub

Petite remarque sur cette Sub. Une fois "Visible", les boutons le resteront. Par exemple je mets T dans A2, le bouton "Traité" s'allume. Si ensuite j'y mets V, cela allume le bouton "MajBase" mais n'éteint pas le bouton "Traité" !

vieuxmonsieur
 Posté le 19/03/2019 à 08:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Il me suffisait d'écrire :

Btn_ValiderSaisie.Visible = False
Btn_MajBase.Visible = True

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Excel ne peut pas terminer cette tâche avec erreur de ressources disponible
Excel ne peut pas terminer cette tâche avec erreur de ressources disponible
comment pour corriger cette erreur #VALEUR!
erreur à l'ouverture d'un classeur excel 2016
Message d'erreur après suppression du logiciel iTube studio
Vba erreur d'exécution 13
erreur Stdole32 lors du lancement Excel 2007
CCleaner erreur de version
MAJ Office 2016 : erreur 30088-26
Mise a jour en erreur sur windows10
Plus de sujets relatifs à Je ne comprend pas cette erreur
 > Tous les forums > Forum Bureautique