Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Blocage impression si cellule non modifiée

  • Initiateur de la discussion Initiateur de la discussion sebbbbb
  • Date de début Date de début

sebbbbb

XLDnaute Impliqué
Bonjour

J'utilise le script suivant :

If ActiveSheet.Name = "SOF EXXON" Then
If Sheets("Fiche Données").Range("E15").Value = "DONGES N°" Then Cancel = True
MsgBox "VEUILLEZ INDIQUER LE NOM COMPLET DU POSTE A QUAI DANS L'ONGLET 'FICHE DONNEES' POUR POUVOIR IMPRIMER CE DOCUMENT"
End If

cependant je me rends compte que meme si celui ci fonctionne, il y a un hic car lorsque je modifie la valeur de la cellule E15 en ajoutant un chiffre (exemple DONGES N°7), le message d'alerte se lance quand même. je me rends compte en fait que si la cellule est modifiée mais qu'il reste quand même le texte lançant le script

je voudrais donc que l'impression se fasse des qu'il y a modification de la cellule E15 , même si l'on garde le texte de base

j'espère m'être explique suffisament clairement

merci par avance

seb
 
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
RE
bonsoir
il y a 3 choses qui vont pas dans ton if
1° le msgbox obéi a une seule condition (la première sur "SOF EXXON" )
2° la 2d condition est linéaire"if.....then....." sur la même ligne donc la ligne msgbox n'en tient pas compte
3° le test " = "DONGES N°"est restrictif dans le sens ou tu tape "toto" ça va imprimer
alors que peut Etre tu a prévu un préfixe tel que celui qui y est + un numéro il faudra que tu précise ce point

VB: 
If ActiveSheet.Name = "SOF EXXON" Then

   If Sheets("Fiche Données").Range("E15").Value = "DONGES N°" Then

   Cancel = True

   MsgBox "VEUILLEZ INDIQUER LE NOM COMPLET DU POSTE A QUAI DANS L'ONGLET 'FICHE DONNEES' POUR POUVOIR IMPRIMER CE DOCUMENT"

   End If

End If

donc pour la restriction au préfixe et suffixe numérique
Code: 
 If Sheets("Fiche Données").Range("E15").Value = "DONGES N°" or left(  Range("E15").Value,9)<>"DONGES N°" and not  isnumeric(replace (Range("E15").Value,9)<>"DONGES N°" ,"")) then

ainsi pour imprimer il faudra qu'il soit inscrit "DONGES N°1" ou "DONGES N°2" ou etc......

 
Dernière édition:
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
je te l'ai donné

je te la donne en entier corrigée

VB: 
If Sheets("Fiche Données").Range("E15").Value = "DONGES N°" Or Left(Range("E15").Value, 9) <> "DONGES N°" And Not IsNumeric(Replace(Range("E15").Value, "DONGES N°", "")) Then
 
Dernière édition:
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
VB: 
If ActiveSheet.Name = "SOF EXXON" Then

   If Sheets("Fiche Données").Range("E15").Value = "DONGES N°" Or Left(Range("E15").Value, 9) <> "DONGES N°" And Not IsNumeric(Replace(Range("E15").Value, "DONGES N°", "")) Then

   Cancel = True

   MsgBox "VEUILLEZ INDIQUER LE NOM COMPLET DU POSTE A QUAI DANS L'ONGLET 'FICHE DONNEES' POUR POUVOIR IMPRIMER CE DOCUMENT"

   End If

End If
 
Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué
En fait c'est ton 1er code qui fonctionne

If ActiveSheet.Name = "SOF EXXON" Then
If Sheets("Fiche Données").Range("E15").Value = "DONGES N°" Then
Cancel = True
MsgBox "VEUILLEZ INDIQUER LE NOM COMPLET DU POSTE A QUAI DANS L'ONGLET 'FICHE DONNEES' POUR POUVOIR IMPRIMER CE DOCUMENT"
End If
End If

pas le 2eme

mais ça me va comme çà

merci bcp
seb
 
Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué
Hello

j'ai autre prob avec le script ci-dessous

quelqu'un pourrait il m'aiguiller svp ?

If ActiveSheet.Name = "Sof Conventionnel" Then
If Sheets("Fiche Données").Range("E15").Value = "" Then
Cancel = True
MsgBox "VEUILLEZ INDIQUER LE NOM COMPLET DU POSTE A QUAI DANS L'ONGLET 'FICHE DONNEES' POUR POUVOIR IMPRIMER CE DOCUMENT"
If Sheets("Sof Conventionnel").Range("A8").Value = "" Then
Cancel = True
MsgBox "VEUILLEZ INSERER LE NOM DE L'ARMATEUR OU OPERATEUR POUR POUVOIR IMPRIMER LE DOCUMENT"
End If
End If
End If
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
837
firecarl
F
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
577
Usine à gaz
S
  • Résolu(e)
XL 2019 code vba changement de couleur si modification de la cellule
Réponses
7
Affichages
2 K
syriak
S
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
1 K
Chaine
C
Z
  • Question Question
XL 2016 Macro couper coller vers onglet suivant
Réponses
3
Affichages
1 K
Zykmu
Z
D
  • Question Question
XL 2016 Suppression d'une valeur d'une cellule par comparaison avec une autre (entre 2 colonnes)
Réponses
8
Affichages
3 K
didcac
D
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
1 K
VirginieG
V
F
  • Question Question
XL 2019 VBA - déclenchement d'une suite d'action sur une cellule modifiée
Réponses
0
Affichages
791
francoisetcheb
F
A
  • Question Question
Microsoft 365 Apostrophe, Texte nombre en nombre, Excel Online
Réponses
9
Affichages
3 K
vgendron
  • Question Question
XL 2010 Code VBA qui bloque la sauvegarde si certaines cellules sont vides
Réponses
13
Affichages
2 K
sebbbbb
  • Question Question
XL 2010 bloquer impression d'un onglet (+ mess alerte) si une cellule d'un autre onglet n'est pas modifiée
Réponses
1
Affichages
576
sebbbbb
B
  • Question Question
Microsoft 365 VBA Efface une cellule si une autre est modifiée
Réponses
7
Affichages
996
Benoit84
B
H
  • Question Question
Microsoft 365 Saut de ligne pour impression VBA
Réponses
3
Affichages
1 K
Harlem_2021
H
E
  • Résolu(e)
Microsoft 365 Macro VBA - Fusionner des cellules
Réponses
8
Affichages
2 K
Elegancya
E
S
  • Question Question
XL 2016 Comment enlever petit triangle vert et losange jaune suite à download (problème de format) ?
Réponses
5
Affichages
5 K
Sebast
S
B
  • Question Question
Masquer Colonne si aucune "valeur" n'est reprise dans cette meme colonne
Réponses
8
Affichages
897
Bullrot
B
Y
  • Résolu(e)
XL 2013 Ordre des onglets créés par rapport à une liste de départ
Réponses
8
Affichages
2 K
Yudlo
Y
T
  • Question Question
XL 2016 Fonction Si avec avec affichage au non selon la valeur
Réponses
4
Affichages
764
_Thierry
C
  • Question Question
XL 2019 message d'alerte si une cellule est vide
2
Réponses
28
Affichages
4 K
CYNO68
C
  • Résolu(e)
Microsoft 365 Supprimer des caractères non visibles en passant par une variable tableau
Réponses
5
Affichages
1 K
Patrice33740
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…