TEST CELLULES VIDESRésolu

Question

Bonjour,

Je souhaiterais créer une macro afin de tester si plusieurs cellules sont vides sur plusieurs colonnes
Après des heures de recherche, je n'ai pas réussi.

Si vous avez une solution je vous en remercie par avance.

mortalino · Accepted Answer

Ah, une troisième :
If bolEnvoiMail = False Then _
    MsgBox "Il n'y a aucune données à traiter dans les plages  L17:L66 et X15:X66", _
                    vbCritical, "Envoi de la pièce jointe annulée"
' manque un guillemet après la plage de cellule, dans le message !                                        ^ici
End Sub  

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

Salut,

essai ceci :

Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell As Range
' *** sélectionne la zone de recherche dans ta feuille
'     ou fait, par exemple, Range("A1:G100").Select

For Each MaCell In Selection
    If MaCell.Value = "" Then MsgBox MaCell.Address & " est vide"
Next MaCell

End Sub

++

cs_Marathon Man · Answer

Merci pour ta réponse aussi rapide mais j'ai deux plages de cellules(L17,L38)et X15,X66) Entre les deux colonnes j'ai des informations qui ne sont pas à sélectionner
Je suis débutant et je n'ai pas réussi

J'ai fait un bouton envoyer pour envoyer un fichier joint directement par mail(bon de commande avec des cases)
je lui ai affecté une macro
et je ne veux pas qu'il envoie le fichier si les cellules sont vides(cela voudrait dire que la commande et vierge)

J'espère avoir été clair

Merci d'avance

mortalino · Answer

Dim bolEnvoiMail As Boolean
' *** cette variable est à placer dans les déclarations

Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell1 As Range
    Dim MaCell2 As Range
    Dim MaCell As Range

bolEnvoiMail = True

Set MaCell1 = Range("L17:L38")
Set MaCell2 = Range("X15:X66")

MaCell1.Select

For Each MaCell In Selection
    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell

MaCell2.Select

For Each MaCell In Selection
    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell

End Sub

Ensuite dans ton CommandButton pour envoyer le ficher joint par mail :
' *** Ceci sera la première instruction de l'évènement Click de ce bouton :
If bolEnvoiMail = False Then Exit Sub

Voilà, tu as tous les éléments en main.

Bonne prog

++

cs_Marathon Man · Answer

Merci vraiment je vais essayé
Voici pour info ma macro

Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder


If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then
MsgBox ("Indiquer votre service SVP")
Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("Q6").Value = "" Then
MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci.")
Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("H68").Value = "" Then
MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci.")
Exit Sub
End If


Dim Wbk As Workbook
ThisWorkbook.Sheets("DISPOSITIFS").Copy
Set Wbk = ActiveWorkbook
Wbk.SendMail "[mailto:sylvie.r@wanadoo.fr sylvie.r@wanadoo.fr]", "COMMANDES DISPOSITIFS MEDICAUX"


Wbk.Close




Confirmation.Show


    
End Sub

mortalino · Answer

Bah alors fais ceci :

 Dim bolEnvoiMail As Boolean
' *** cette variable est à placer dans les déclarations

Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder

Call Cherche_Cellules_Vides_Dans_Selection
If bolEnvoiMail = False Then Exit Sub

If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then
  MsgBox ("Indiquer votre service SVP"): Exit Sub
End If

If Worksheets("DISPOSITIFS").Range("Q6").Value = "" Then
  MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub
End If

If Worksheets("DISPOSITIFS").Range("H68").Value = "" Then
  MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub
End If

Dim Wbk As Workbook
ThisWorkbook.Sheets("DISPOSITIFS").Copy
Set Wbk = ActiveWorkbook
With Wbk
  .SendMail "sylvie.r@wanadoo.fr", "COMMANDES DISPOSITIFS MEDICAUX"
  .Close
End With

Confirmation.Show
    
End Sub

Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell1 As Range
    Dim MaCell2 As Range
    Dim MaCell As Range

bolEnvoiMail = True

Set MaCell1 = Range("L17:L38")
Set MaCell2 = Range("X15:X66")

MaCell1.Select

For Each MaCell In Selection
    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell

MaCell2.Select

For Each MaCell In Selection
    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell

End Sub

++

cs_Marathon Man · Answer

Dim bolEnvoiMail As Boolean
' *** cette variable est à placer dans les déclarations
Tu peux me dire ce que signifie les déclararations
++

mortalino · Answer

Les déclarations c'est la partie où tu déclares tes variables public (accessibles par toutes tes procédures), les API, etc..

Bref, tu dois placer la variable en tout premier, au dessus de TOUTES tes procédures.

++

cs_Marathon Man · Answer

Je t'embête mais c'est mon dernière soucis pour que cela soit nickel
il faut que je le place dans la macro ou la feuil ou this workbook

Est-ce que j'ai bien compris ?

Dim bolEnvoiMail As Boolean

Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder
.....................
Merci

cs_Marathon Man · Answer

j'ai compris pour les déclartions
en fait on peut voir la macro mail et la même mais en choisissant déclarations
la macro mail declaration aura en plus
Dim bolEnvoiMail As Boolean

Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholderer

Si tu pouvais me confirmer mais avec de la persévérance on y arrive

mortalino · Answer

J'ai rien compris à ton explication !!

C'est simple, les décarations se trouvent aux plus haut.
Je peux pas mieux t'expliquer, c'est dans les premières lignes du module de code (que ce soit une Form ou un Module)

++

mortalino · Answer

j'avais pas vu ton 1er message :

"Je t'embête mais c'est mon dernière soucis pour que cela soit nickel
il faut que je le place dans la macro ou la feuil ou this workbook"

Dans AUCUNES procédures, au dessus de toutes celle-ci ^^

cs_Marathon Man · Answer

Set MaCell1 = Range("L17:L66")
Set MaCell2 = Range("X15:X66")
J'ai bien avancé mais ce n'est pas encore ça
J'ai bien mis la macro mais il me slectionne les cellules de L17 à L66

En fait je voudrais qu'il teste la plage de cellules (les deux lignes au dessus ) et
ensuite afficher un msbox si ""

Pas simple ma demande

mortalino · Answer

Pas simple, pas simple, t'as juste un copier collé à faire de ce que je t'ai fait !

Dans ton second message, tu dis "j'ai deux plages de cellules(L17,L38)et X15,X66)"
donc c'est normal qu'il y ait
Set MaCell1 = Range("L17:L66")
Set MaCell2 = Range("X15:X66")
la procédure teste donc ces deux plages !

++

cs_Marathon Man · Answer

Voilà ce que j'ai fait mëme si je mets 10 dans une cellule cela ne fonctionne pas

Je vais continuer à chercher

voivi la macro pour info

Dim bolEnvoiMail As Boolean
' *** cette variable est à placer dans les déclarations


Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder


Call Cherche_Cellules_Vides_Dans_Selection
If bolEnvoiMail = False Then Exit Sub


If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then
  MsgBox ("Indiquer votre service SVP"): Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("Q6").Value = "" Then
  MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("H68").Value = "" Then
  MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub
End If


Dim Wbk As Workbook
ThisWorkbook.Sheets("DISPOSITIFS").Copy
Set Wbk = ActiveWorkbook
With Wbk
  .SendMail "[mailto:sylvie.r@wanadoo.fr sylvie.r@wanadoo.fr]", "COMMANDES DISPOSITIFS MEDICAUX"
  .Close
End With


Confirmation.Show
    
End Sub


Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell1 As Range
    Dim MaCell2 As Range
    Dim MaCell As Range


bolEnvoiMail = True


Set MaCell1 = Range("L17:L66")
Set MaCell2 = Range("X15:X66")


MaCell1.Select


For Each MaCell In Selection    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell


MaCell2.Select


For Each MaCell In Selection    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell


End Sub

mortalino · Answer

il faut que tu aies absolument des données dans :
K6
Q6
H68
L17:L66
X15:X66

Sinon, voici une simplification de ta procédure Mail :

Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder

Call Cherche_Cellules_Vides_Dans_Selection
If bolEnvoiMail = False Then Exit Sub

Worksheets("DISPOSITIFS").Activate

If Range("K6").Value = "" Then
  MsgBox ("Indiquer votre service SVP"): Exit Sub
ElseIf Range("Q6").Value = "" Then
  MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub
ElseIf Range("H68").Value = "" Then
  MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub
End If

Dim Wbk As Workbook
ActiveSheet.Copy
Set Wbk = ActiveWorkbook

With Wbk
  .SendMail "sylvie.r@wanadoo.fr", "COMMANDES DISPOSITIFS MEDICAUX"
  .Close
End With

Confirmation.Show
    
End Sub

cs_Marathon Man · Answer

il faut que j' ai absolument des données dans :
K6
Q6
H68 
et il faut que si toutes les cellules sont vides en même temps de
L17 à L66 et aussi surtout en même temps
X15 à X66 alors msbox

autrement j'ai essaye ce que tu m'as donné et j'ai une erreur sur
Call Cherche_Cellules_Vides_Dans_Selection

erreur de compilation
sub ou fonction non definie

De toute façon, je ne vais pas lâcher le morceau et il faut que je trouve d'ici demain soir car je présente mon projet lundi

a+

mortalino · Answer

Ta as bien insérer tes codes dans un Module ?

Pour ma procédure je viens de la retester, ça fonctionne chez moi !
Place le curseur dans MA procédure et appuie du F8 (exécution pas à pas), et dis moi sur quelle ligne ça plante.

cs_Marathon Man · Answer

oui j'ai copié mon classeur pour être sûre de ne pas faire de connerie

J'ai remplacé ta procédure dans le module j'avais ma macro mail
et ça plante sur cette ligne
Call Cherche_Cellules_Vides_Dans_Selection
je l'ai mise en rouge
pour info
Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder



Call Cherche_Cellules_Vides_Dans_Selection

If bolEnvoiMail = False Then Exit Sub


Worksheets("DISPOSITIFS").Activate


If Range("K6").Value = "" Then
  MsgBox ("Indiquer votre service SVP"): Exit Sub
ElseIf Range("Q6").Value = "" Then
  MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub
ElseIf Range("H68").Value = "" Then
  MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub
End If


Dim Wbk As Workbook
ActiveSheet.Copy
Set Wbk = ActiveWorkbook


With Wbk
  .SendMail "[mailto:sylvie.r@wanadoo.fr sylvie.r@wanadoo.fr]", "COMMANDES DISPOSITIFS MEDICAUX"
  .Close
End With


Confirmation.Show
    
End Sub

chaibat05 · Answer

Bonjour,
Il faut que ta Sub Cherche_Cellules_Vides_Dans_Selection()
Soit déclarée Public dans le Module , non ?

cs_Marathon Man · Answer

j'ai mis cela dans thisworkbook


Private Sub Workbook_Open()


Sheets("MENU").Select


Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub

chaibat05 · Answer

Restons sur l' erreur 
Call Cherche_Cellules_Vides_Dans_Selection

Est ce que tu as déclaré 
Public Sub Cherche_Cellules_Vides_Dans_Selection
?

cs_Marathon Man · Answer

non je ne sais ce que tu entends pas déclaré
il faut le faire dans un module ou thisworkbook......

je suis un débant

chaibat05 · Answer

Je veux dire qu' il fautt juste ajouter le mot Public devant
Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell1 As Range
    Dim MaCell2 As Range
    Dim MaCell As Range

.........

..........
End Sub

Pour avoir

Public Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell1 As Range
    Dim MaCell2 As Range
    Dim MaCell As Range

.........

..........
End Sub

Et pour que ta procédure Cherche_Cellules_Vides_Dans_Selection()
soit définie.

En réponse à l' erreur :
Sub Cherche_Cellules_Vides_Dans_Selection() non définie

chaibat05 · Answer

et il faut le faire dans un module .

cs_Marathon Man · Answer

j'essaye et je te dis
merci

cs_Marathon Man · Answer

j'ai fait ceci mais en fait il me grise les les cellules vides
de 17 à66 t même si j'en renseigne une , il me les grise aussi

Mois il me faut un msbox si toutes les cellules qui sont comprisent entre les eux plages sont vides et sans exception

pas simple mon affaire

Dim bolEnvoiMail As Boolean
' *** cette variable est à placer dans les déclarations


Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder


Call Cherche_Cellules_Vides_Dans_Selection
If bolEnvoiMail = False Then Exit Sub


If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then
  MsgBox ("Indiquer votre service SVP"): Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("Q6").Value = "" Then
  MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("H68").Value = "" Then
  MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub
End If


Dim Wbk As Workbook
ThisWorkbook.Sheets("DISPOSITIFS").Copy
Set Wbk = ActiveWorkbook
With Wbk
  .SendMail "[mailto:sylvie.r@wanadoo.fr sylvie.r@wanadoo.fr]", "COMMANDES DISPOSITIFS MEDICAUX"
  .Close
End With


Confirmation.Show
    
End Sub


Public Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell1 As Range
    Dim MaCell2 As Range
    Dim MaCell As Range


bolEnvoiMail = True


Set MaCell1 = Range("L17:L66")
Set MaCell2 = Range("X15:X66")


MaCell1.Select


For Each MaCell In Selection    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell


MaCell2.Select


For Each MaCell In Selection    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell


End Sub

cs_Marathon Man · Answer

j'ai fait ceci mais en fait il me grise les les cellules vides
de 17 à66 t même si j'en renseigne une , il me les grise aussi

Mois il me faut un msbox si toutes les cellules qui sont comprisent entre les eux plages sont vides et sans exception

pas simple mon affaire

Dim bolEnvoiMail As Boolean
' *** cette variable est à placer dans les déclarations


Sub mail()
'
' mail Macro
' Macro enregistrée le 25/08/2006 par User name placeholder


Call Cherche_Cellules_Vides_Dans_Selection
If bolEnvoiMail = False Then Exit Sub


If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then
  MsgBox ("Indiquer votre service SVP"): Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("Q6").Value = "" Then
  MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub
End If


If Worksheets("DISPOSITIFS").Range("H68").Value = "" Then
  MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub
End If


Dim Wbk As Workbook
ThisWorkbook.Sheets("DISPOSITIFS").Copy
Set Wbk = ActiveWorkbook
With Wbk
  .SendMail "[mailto:sylvie.r@wanadoo.fr sylvie.r@wanadoo.fr]", "COMMANDES DISPOSITIFS MEDICAUX"
  .Close
End With


Confirmation.Show
    
End Sub


Public Sub Cherche_Cellules_Vides_Dans_Selection()
    Dim MaCell1 As Range
    Dim MaCell2 As Range
    Dim MaCell As Range


bolEnvoiMail = True


Set MaCell1 = Range("L17:L66")
Set MaCell2 = Range("X15:X66")


MaCell1.Select


For Each MaCell In Selection    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell


MaCell2.Select


For Each MaCell In Selection    If MaCell.Value "" Then bolEnvoiMail False: Exit Sub
Next MaCell


End Sub

chaibat05 · Answer

Désolé, mais ça devient un peu plus compliqué pour moi.
Peut être que quelqu' un d' autre pourras t' aider encore plus.
Tu auuras certainement d' autres réponses.
bon courage.

mortalino · Answer

Re, Fais Insérer, Module, et colle ceci (et répond à ma question située dans ta procédure Mail stp, merci) : Coloration syntaxique automatique Dim bolEnvoiMail As Boolean ' *** cette variable est à placer dans les déclarations Sub mail() ' ' mail Macro ' Macro enregistrée le 25/08/2006 par User name placeholder Call Cherche_Cellules_Vides_Dans_Selection If bolEnvoiMail = False Then Exit Sub ' *** laisse les ElseIf ! If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then MsgBox ("Indiquer votre service SVP"): Exit Sub ElseIf Worksheets("DISPOSITIFS").Range("Q6").Value = "" Then MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub ElseIf Worksheets("DISPOSITIFS").Range("H68").Value = "" Then MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub End If ' *** Ca sert à quoi tout ça, que veux tu faire exactement : ' ######################################################## Dim Wbk As Workbook ThisWorkbook.Sheets("DISPOSITIFS").Copy Set Wbk = ActiveWorkbook With Wbk .SendMail "sylvie.r@wanadoo.fr", "COMMANDES DISPOSITIFS MEDICAUX" .Close End With ' ######################################################## Confirmation.Show End Sub Public Sub Cherche_Cellules_Vides_Dans_Selection() Dim MaCell1 As Range Dim MaCell2 As Range Dim MaCell As Range bolEnvoiMail = True Set MaCell1 = Range("L17:L66") Set MaCell2 = Range("X15:X66") MaCell1.Select For Each MaCell In Selection If MaCell.Value = "" Then MsgBox "La cellule " & MaCell.Address & " est vide !": bolEnvoiMail = False: Exit Sub Next MaCell MaCell2.Select For Each MaCell In Selection If MaCell.Value = "" Then MsgBox "La cellule " & MaCell.Address & " est vide !": bolEnvoiMail = False: Exit Sub Next MaCell End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_Marathon Man · Answer

Réponse à ta question

' *** Ca sert à quoi tout ça, que veux tu faire exactement :
' ########################################################
Dim Wbk As Workbook 
ThisWorkbook.Sheets("DISPOSITIFS").Copy 
Set Wbk = ActiveWorkbook 
With Wbk 
  .SendMail "sylvie.r@wanadoo.fr", "COMMANDES DISPOSITIFS MEDICAUX" 
  .Close 
End With 

J'envoie un mail avec une insertion automatique en pièce jointe du classeur qui est ouvert

Je vais essayé ta macro

cs_MPi · Answer

Salut, Mortalino, je reprend ton bout de code pour le modifier selon ma compréhension du problème. Ton code regarde s'Il y a une cellule vide et empêche l'envoi le cas échéant. Je pense plutôt qu'il faut vérifier si au moins une cellule contient quelque chose dans l'une ou l'autre des 2 plages et accepter l'envoi si c'est le cas. Tout ça pour éviter d'envoyer un bon de commande vide. Ça prend donc un seul item non vide pour que la commande soit valide et pouvoir envoyer. 'Dim bolEnvoiMail As Boolean - On laisse tomber cette variable ' *** cette variable est à placer dans les déclarations Function Cherche_Cellule_NonVide_Dans_Selection() As Boolean Dim MaCell1 As Range Dim MaCell2 As Range Dim MaCell As Range Set MaCell1 = Range("L17:L38") Set MaCell2 = Range("X15:X66") MaCell1.Select For Each MaCell In Selection If MaCell.Value <> "" Then Cherche_Cellule_NonVide_Dans_Selection = True: Exit Sub Next MaCell MaCell2.Select For Each MaCell In Selection If MaCell.Value <> "" Then Cherche_Cellule_NonVide_Dans_Selection = True: Exit Sub Next MaCell End Sub Et dans la macro d'envoi Sub mail() ' ' mail Macro ' Macro enregistrée le 25/08/2006 par User name placeholder If Not Cherche_Cellule_NonVide_Dans_Selection ' si toutes les cellules sont vides Msgbox "La commande est vide" Exit Sub Next If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then MsgBox ("Indiquer votre service SVP"): Exit Sub End If ................ ................ MPi

mortalino · Answer

Je trouve donc ces syntaxes bizarres :

Dim Wbk As Workbook 
ThisWorkbook.Sheets("DISPOSITIFS").Copy 
Set Wbk = ActiveWorkbook

Le Wbk n'a pas vraiment lieu d'être, et le Copy, tu veux faire quoi avec, faire une copie de la feuille et l'enregistrer indépendemment du classeur actuellement ouvert ou tu veux juste envoyer le Mail, sans faire de copie ?

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

MPi, (salut)

il ne veut pas envoyer s'il y a au moins une donnée dans ces 2 plages de cellules, mais envoyer la pièce jointe si TOUTES les cellules des 2 plages sont remplies !
Donc, s'il y en a une vide, il faut arrêter l'exécution.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_Marathon Man · Answer

si au moins une cellule contient quelque chose dans l'une ou l'autre des 2 plages et accepter l'envoi si c'est le cas. Tout ça pour éviter d'envoyer un bon de commande vide.

Mais s'il n'y a aucune donnée dans les deux plages alors message box commande vide

c'est exactement ça mais pas obligé d'avoir toutes cellules renseignées pour envoyer

Merci à vous deux

cs_Marathon Man · Answer

Autrement MPI 

Il y a deux parties pour ta macro.
Faut-il les mettre dans deux modules différents ?
 ++

cs_Marathon Man · Answer

je vais vous dire l'idée complète

Ensuite une fois que la personne a fait sa commande, elle clique sur envoyer
et ensuite l'email est envoyé directement avec en pièce jointe le classeur puis ensuite
je vide toutes les cellules afin qu'il soit ossible de refaire une commande avec un document propre

j'espère avoir été clair
++

chaibat05 · Answer

Testes uniquement sur les cellules qui doivent obligatoiremenr être renseignées.
s' il manque une , tu annules l' envoi.

cs_MPi · Answer

Non, Il n'y a qu'une Function que tu peux mettre dans le même module que ta procédure Mail() pour envoyer Le principe est de vérifier les 2 plages que tu as mentionnées. Le code de Mortalino est parfait pour ça. Le fait d'utiliser une Function AS BOOLEAN fait en sorte que cette Function retourne VRAI ou FAUX selon qu'elle trouve ou non une cellule remplie. Donc, dès qu'une cellule est remplie, on sort de la Function en envoyant "Vrai" comme résultat. Au début de ta macro d'envoi, tu vérifies si la Function retourne Vrai ou Faux. Si c'est faux, donc toutes vides, tu envoies un message et tu sors. Sinon, le code se continue. Par contre, je viens de voir qu'il y a plusieurs "Sub" dans ma Function. Je refais un Copier/coller Function Cherche_Cellule_NonVide_Dans_Selection() As Boolean Dim MaCell1 As Range Dim MaCell2 As Range Dim MaCell As Range Set MaCell1 = Range("L17:L38") Set MaCell2 = Range("X15:X66") MaCell1.Select 'sélection de la 1ere plage ' si une cellule n'est pas vide, on sort de la Function en retournant VRAI For Each MaCell In Selection If MaCell.Value <> "" Then Cherche_Cellule_NonVide_Dans_Selection = True: Exit Function Next MaCell MaCell2.Select 'même chose pour la 2e sélection For Each MaCell In Selection If MaCell.Value <> "" Then Cherche_Cellule_NonVide_Dans_Selection = True: Exit Function Next MaCell End Function **************************************** Ça, c'était LA procédure (Function) Maintenant, dans TA procédure d'envoi Sub mail() ' ' mail Macro ' Macro enregistrée le 25/08/2006 par User name placeholder If Not Cherche_Cellule_NonVide_Dans_Selection ' si toutes les cellules sont vides Msgbox "La commande est vide" Exit Sub Next If Worksheets("DISPOSITIFS").Range("K6").Value = "" Then MsgBox ("Indiquer votre service SVP"): Exit Sub End If ................ ................ En espérant être plus clair... MPi

mortalino · Answer

Je t'ai fais qques modifs : Coloration syntaxique automatique ' *** jusqu'au trait, mettre ceci dans ThisWorkBook Private Sub Workbook_Open() Sheets("MENU").Select Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub _________________________________________________________ ' *** maintenant, insère ceci dans un Module (un seul, pas dans plusieurs) : Dim bolEnvoiMail As Boolean Dim MaCell1 As Range Dim MaCell2 As Range ' *** ces variables sont à placer dans les déclarations Sub mail() ' ' mail Macro ' Macro enregistrée le 25/08/2006 par User name placeholder Call Cherche_Cellules_Vides_Dans_Selection If bolEnvoiMail = False Then Exit Sub Worksheets("DISPOSITIFS").Select ' *** laisse les ElseIf ! If Range("K6").Value = "" Then MsgBox ("Indiquer votre service SVP"): Exit Sub ElseIf Range("Q6").Value = "" Then MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub ElseIf Range("H68").Value = "" Then MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub End If ActiveWorkbook.SendMail "sylvie.r@wanadoo.fr", "COMMANDES DISPOSITIFS MEDICAUX" Confirmation.Show MaCell1.Clear MaCell2.Clear End Sub Public Sub Cherche_Cellules_Vides_Dans_Selection() Dim MaCell As Range bolEnvoiMail = False Set MaCell1 = Range("L17:L66") Set MaCell2 = Range("X15:X66") MaCell1.Select For Each MaCell In Selection If MaCell.Value <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell MaCell2.Select For Each MaCell In Selection If MaCell.Value = "" Then bolEnvoiMail = True: Exit Sub Next MaCell End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Bah t'as le choix ^^ Sinon, dans MaCell2.Select For Each MaCell In Selection If MaCell.Value "" Then bolEnvoiMail True: Exit Sub ' *** remplace "" par <> Next MaCell End Sub @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_MPi · Answer

Tu pourrais ausi te simplifier la vie si tu mettais un total d'items dans une cellule quelconque, disons A50, du genre

=NBVAL(L17:L38) + NBVAL(X15:X66)


Donc, si la valeur de la cellule est supérieure à 0, tu as au moins un article d'inscrit dans ta commande et tu peux envoyer

Donc, en début de ta procédure Mail()

If Range("A50") = 0 then

msgbox "La commande est vide"
exit sub

End if


MPi

cs_Marathon Man · Answer

oui j'avais essayé cela cette nuit
mais je n'ais pas réussi à trouver la command pour dire toutes cellules des plages sont
supérieures à 0 alors commande vide
tu connais peut-être la commande pour tester plusieurs cellules en même temps
++

mortalino · Answer

Je suis à 200 % d'accord avec MPi, excel est l'outil le plus puissant de la suite Office, autant s'en servir, étant l'application hôte !
(et ça t'économisera moultes lignes de code, obsolètes, en utilisant la fonction proposée par MPi)

Bien vu MPi

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_Marathon Man · Answer

ta dernière macro a marche
il m'a bien bloquer l'envoi mais il n' a pas eu de msbox commande vide

MPI a raison mais comme je l'ai dit j'avais réussi que pour une seule cellule

merci c'est déjà une avancée

On voit qu'il s'électionne les plages pour faire le contrôle dans ta macro
est-ce qu'il est possible de ne pas le voir ?

Je suis peut-être un peu lourd mais il faut que mon projet soit nickel car il sera utilisé 
par plus de 500 personnes

mortalino · Answer

"On voit qu'il s'électionne les plages pour faire le contrôle dans ta macro est-ce qu'il est possible de ne pas le voir ?" Peux tu donner plus de précisions stp ? (merci) Pour ton message, voici la modif : MaCell1.Select For Each MaCell In Selection If MaCell.Value <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell MaCell2.Select For Each MaCell In Selection If MaCell.Value = "" Then bolEnvoiMail = True: Exit Sub Next MaCell ' *** rajoute juste la prochaine instruction : If bolEnvoiMail = False Then MsgBox "Il n'y a aucune données à traiter dans les plages " & _ MaCell1.Address & " et " & MaCell2.Address, vbCritical, "Envoi de la pièce jointe annulée" @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

/!\ Attention, j'ai refait la même erreur que tout à l'heure : MaCell1.Select For Each MaCell In Selection If MaCell.Value <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell MaCell2.Select For Each MaCell In Selection If MaCell.Value <> Then bolEnvoiMail True: Exit Sub ' <--*** en rouge Next MaCell ' *** rajoute juste la prochaine instruction : If bolEnvoiMail = False Then MsgBox "Il n'y a aucune données à traiter dans les plages " & _ MaCell1.Address & " et " & MaCell2.Address, vbCritical, "Envoi de la pièce jointe annulée" @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_Marathon Man · Answer

En fait cela fait comme si je sélectionne dans excel avec ma souris plsieurs cellules
A ce moment là, il les met en bleu avec un cadre

++

chaibat05 · Answer

Tu commences à fatiguer , cher Marathon Man.
Prends une pause.

cs_MPi · Answer

Au début de la macro, tu peux écrire

Application.ScreenUpdating = False

et à la fin Application.ScreenUpdating = True


et mettre Application.ScreenUpdating = True avant le ou les exit sub de ta macro


Aussi, après que les sélections et vérifications ont été faites, tu peux mettre

Range("A1").select

MPi

mortalino · Answer

modifs faites, t'as plus que les copier/coller à faire : Coloration syntaxique automatique ' *** jusqu'au trait, mettre ceci dans ThisWorkBook Private Sub Workbook_Open() Sheets("MENU").Select Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub _________________________________________________________ ' *** maintenant, insère ceci dans un Module (un seul, pas dans plusieurs) : Dim bolEnvoiMail As Boolean ' *** ces variables sont à placer dans les déclarations Sub mail() ' ' mail Macro ' Macro enregistrée le 25/08/2006 par User name placeholder Call Cherche_Cellules_Vides_Dans_Selection If bolEnvoiMail = False Then Exit Sub Worksheets("DISPOSITIFS").Select ' *** laisse les ElseIf ! If Range("K6").Value = "" Then MsgBox ("Indiquer votre service SVP"): Exit Sub ElseIf Range("Q6").Value = "" Then MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub ElseIf Range("H68").Value = "" Then MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub End If ActiveWorkbook.SendMail "sylvie.r@wanadoo.fr", _ "COMMANDES DISPOSITIFS MEDICAUX" Confirmation.Show Range("L17:L66").Clear Range("X15:X66").Clear End Sub Public Sub Cherche_Cellules_Vides_Dans_Selection() Dim MaCell As Range bolEnvoiMail = False For Each MaCell In Range("L17:L66") If MaCell.Value <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell For Each MaCell In Range("X15:X66") If MaCell.Value = <> Then bolEnvoiMail = True: Exit Sub Next MaCell If bolEnvoiMail = False Then MsgBox "Il n'y a aucune données à traiter dans les plages L17:L66 et X15:X66, _ vbCritical, "Envoi de la pièce jointe annulée" End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

chaibat05 · Answer

il faut initialiser bolEnvoiMail à True

cs_Marathon Man · Answer

Merci à tous car grâce à vous j'ai réussi
c'est vraiment un travil d'équipe
deux dernières choses pour finr

tout à la finde ma macro mail
 Que dois-je mettre pour qu'il ne me demande pas d'enregistrer les modificatons, en fait forcer le choix ?
Et je voudrais repartir vers une autre feuille qui est un menu ?
Après j'ai fini 

je vous ai mis la fin de la macro

ActiveWorkbook.SendMail "[mailto:sylvie.r@wanadoo.fr sylvie.r@wanadoo.fr]", "COMMANDES DISPOSITIFS MEDICAUX"


Confirmation.Show
MaCell1.Clear
MaCell2.Clear
End Sub

mortalino · Answer

bolEnvoiMail = False For Each MaCell In Range("L17:L66") If MaCell.Value <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell For Each MaCell In Range("X15:X66") If MaCell.Value = <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell Il ne l'est que si la condition est vérifiée ! Si MaCell contient une valeur, bolEnvoiMail passe à true. (il doit être false car si la condition n'est pas vérifiée, il le reste, et dans la proc Mail, si c'est False, il n'exécute pas la procédure) @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Avant le ActiveWorkbook.SendMail, place
ActiveWorkBook.Saved = True
(fait comme s'il a été enregistré)

et avant le End Sub
Sheets("Nom de la feuille").Select

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

Autant pour moi,
Je croyais que c' était If MaCell.Value = = "" Then bolEnvoiMail = False: Exit Sub  
Bon c' est terminé les gars
Qui veut un café ?

chaibat05 · Answer

Ah non ! Pas Exit Sub mais Exit For
Pour faire tout les tests

mortalino · Answer

Ouaich !
(bonne idée)

Marathon Man, ton topic, malgrè le record des visités pour la journée ainsi que des réponses, doit être valider si une réponse te convient pour le clotûrer !
(et puis ça nous fera plaisir, après avoir passé 10 heures à t'aider)
Pour mémoire :
Sujet |                                           Rép. |, , Date        |Auteur         |Vus |
[infomsg_TEST-CELLULES-VIDES_802946.aspx#57 TEST CELLULES VIDES], 57, 08:44, Marathon Man, 338

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

Chaibat, pas besoin non plus, une seule valeur lui satisfait !
S'il y'en a une, pourquoi s'embêter à faire le test de l'autre plage ?
1/ qques milisecondes de gagner, c'est toujours ça
2/ ça bouffent des ressources.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_Marathon Man · Answer

pas de problème mais j'ai deux erreurs dans ta dernière macro
l'une que j'ai résolu et l'autre que je ne n'avais pas c'est our cela que je regarde ton avant 
dernière macro
A tout de suite

chaibat05 · Answer

Vrai.
Envoies !

mortalino · Answer

Public Sub Cherche_Cellules_Vides_Dans_Selection() Dim MaCell As Range bolEnvoiMail = False For Each MaCell In Range("L17:L66") If MaCell.Value <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell For Each MaCell In Range("X15:X66") If MaCell.Value = <> "" Then bolEnvoiMail = True: Exit Sub Next MaCell 'Erreur 1, oublie des parenthèses dans la condition ci-dessus ! 'Erreur 2, oublie de l'underscore ci-dessous ! If bolEnvoiMail = False Then _ MsgBox "Il n'y a aucune données à traiter dans les plages L17:L66 et X15:X66, _ vbCritical, "Envoi de la pièce jointe annulée" End Sub @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_Marathon Man · Answer

If bolEnvoiMail = False Then _
    MsgBox "Il n'y a aucune données à traiter dans les plages  L17:L66 et X15:X66, _
                    vbCritical, "Envoi de la pièce jointe annulée"

il me fait une erreur de syntaxe ?

chaibat05 · Answer

MsgBox "Il n'y a aucune données à traiter dans les plages" _
& "  L17:L66 et X15:X66,   vbCritical, "Envoi de la pièce jointe annulée"

mortalino · Answer

Arf, Chaibat, t'es passé au travers de mon erreur, c'est le guillemet manquant après 
L17:L66 et X15:X66

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

En plus il faut revoir les tests pour sortir avec les paramètres de la cellule
 ou il manque les données et la signaler dans le msgbox.

cs_Marathon Man · Answer

ok super les gars
ça marche nickel

il reste un détail c'est lorsque que je clique sur le bouton quiter de mon userform
confirmation show à la fin il ne va pas à la feuille de menu

Mais c'est un détail par rapport au travail que vous avez effectuez

Merci encore

chaibat05 · Answer

Tu dis quoi Mortalino ?
On continue ?

mortalino · Answer

Dans ta procédure Mail, met en dernier (avant le End Sub) :
Sheets("Nom de ta feuille").Select

Elle se sélectionnera (met le bon nom) 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

Re : TEST CELLULES VIDES

            par : [auteurdetail.aspx?ID= 736628 chaibat05]
             le 26/08/2006 18:35:34 
 Re : TEST CELLULES VIDES 
            par : [auteurdetail.aspx?ID =647037 mortalino]([membreclub.aspx  Membre Club ])  le 26/08/2006 18:35:34 

Chaibat, plus syncro : IMPOSSIBLE !
@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

Qui dit mieux ?

cs_Marathon Man · Answer

j'ai mis en rouge comme tu m'as dit en bas C'est bien le nom de la feuille c'est à dire MENU et non Feuil 1 dans vb ? Dim bolEnvoiMail As Boolean ' *** ces variables sont à placer dans les déclarations Sub mail() ' ' mail Macro ' Macro enregistrée le 25/08/2006 par User name placeholder Call Cherche_Cellules_Vides_Dans_Selection If bolEnvoiMail = False Then Exit Sub Worksheets("DISPOSITIFS").Select ' *** laisse les ElseIf ! If Range("K6").Value = "" Then MsgBox ("Indiquer votre service SVP"): Exit Sub ElseIf Range("Q6").Value = "" Then MsgBox ("Veuillez indiquer votre Unité Fonctionnelle merci."): Exit Sub ElseIf Range("H68").Value = "" Then MsgBox ("Veuillez indiquer votre Nom en bas de la feuille merci."): Exit Sub End If ActiveWorkbook.Saved = True ActiveWorkbook.SendMail "[mailto:sylvie.G@wanadoo.fr sylvie.G@wanadoo.fr]", _ "COMMANDES DISPOSITIFS MEDICAUX" Confirmation.Show Range("L17:L66").Clear Range("X15:X66").Clear Sheets("MENU").Select End Sub Public Sub Cherche_Cellules_Vides_Dans_Selection() Dim MaCell As Range bolEnvoiMail = False For Each MaCell In Range("L17:L66") If MaCell.Value <> "" Then bolEnvoiMail = True: Exit For Next MaCell For Each MaCell In Range("X15:X66") If MaCell.Value <> "" Then bolEnvoiMail = True: Exit For Next MaCell If bolEnvoiMail = False Then _ MsgBox "Il n'y a aucune données à traiter dans les plages L17:L66 et X15:X66", _ vbCritical, "Envoi de la pièce jointe annulée" End Sub

mortalino · Answer

Oui !
Il faut que dans excel, au niveau des onglets (là où tu choisies ta feuille afin de la sélectionner), il faut que ce soit noté MENU

N'oublie pas, l'enregistreur de macro t'aide pour ce genre de chose !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_Marathon Man · Answer

Je t'assure elle s'appelle MENU

Autrement j'ai un bouton qui a une macro MENU d'affecté
Je pense que je peux forcer l'execution à ce stade ?
elle marche et mon bouton aussi

chaibat05 · Answer

Essaies un autre nom,
et par la même occasion changes le tiens aussi
ça deviens un vrai Marathon, cher Marathon Man. 
Tiens pourquoi pas MARATHON ?



Sheets("MARATHON ").Select

mortalino · Answer

Coloration syntaxique automatique Sub test() ' *** A placer dans un module, avant d'exécuter cette procédure, ' met toi sur la feuille MENU MsgBox ActiveSheet.Index ' *** Retiens le chiffre que le message te donne, et dans la procédure ' Mail, remplace Sheets("MENU").Select par Sheets(N°).Select End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_Marathon Man · Answer

ok je vais essayé 
je vais vous laisser car à force que j'avance j'ai des incohérences
tu m'as donné une commande tout à l'heure pour imprimer la feuille
mais en faite maintenant que j'ai mis ma feuille MENU il faut une commande qui m'imprime
seulement la page 1 de la feuille 2 du classeur ouvert

Pour info je cours au alentour de 3 h au MARATHON

++

chaibat05 · Answer

Qu' est ce que tu en dis Mortalino : On court avec lui ?

mortalino · Answer

"Pour info je cours au alentour de 3 h au MARATHON"

Mais je ne tiendrai pas jusque là ! N'oublie pas que je suis sur ton Topic depuis 9h ce matin.

Quand tu te trouves sur Excel, fait un click droit sur un espace vide de la barre de commande (et ne me demande pas ce que c'est...) et choisi 'Visual Basic'.
Un rectangle s'affiche, 
le 1er icone, c'est 'exécuter une macro'
la 2nde icone, c'est 'enregistrer une macro'.

Bah tu cliques sur enregistrer une macro, tu appuies sur Entrée.
Tu fais tes actions (choisir la feuille, imprimer de la feuille x à y, des sélections de cellules, bref, ce que tu veux).
Une fois terminé, clique dans le rectangle sur le carré bleu (arrêter l'enregistrement),
puis sur exécuter macro.
Choisi ta macro (Macro1, par défaut), puis clique sur modifier.

Voilà, t'as le code sous les yeux ! (et tu sais te servir de l'enregistreur de macro)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

Mortalino,
ThisWorkbook.Sheets("MENU").Select 
Non ?

cs_Marathon Man · Answer

J'ai fait la macro pour trouver le nombre  s'était 1
j'a bien mis la commande mais cela<n'a rien changé

je vais regardé si il n'y a pas une command qui la supprime
du genre workbook close

et oui je tiens le coup

mortalino · Answer

Chaibat,

Apparemment ça ne lui prend pas à cause du même nom dans je sais plus quoi !
Donc je lui avais fourni une solution alternative pour éviter de rester 2 heures sur le nom de sa feuille.

Et là, un p'tit coup d'enregistreur, et voilà.
C'est le seul moyen pour notre homme marathon, de trouver la solution.
Nous ne sommes pas devant son classeur, et lui seul en faisant 3 actions par cet enregistreur peut récupérer le nom de sa feuille (onglet)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

Il faut fermer le Sheets courant avant d' activer l' autre.

cs_Marathon Man · Answer

En faite à la fin il ne va pas à la feuille menu mais il supprime les deux feuilles et il
me reste un écran noir avec ne barre d'outils excel 

Merci encore Mortalino et bonne soirée et surtout bonne nuit

mortalino · Answer

Le Sheets ??

Si t'es sur "Feuil1", et que tu veux sélectionner la "Feuil3", un simple
Sheets("Feuil3").Select
suffit. Pas besoin de fermer quelque chose.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

Ben c'est toi qui a mis ces codes dans :
Private Sub Workbook_Open()
Private Sub Workbook_BeforeClose(Cancel As Boolean) 

T'as qu'a le supprimer !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

Je me permet une question, peut-être personnelle, mais bon :

Comment ce fait-il que tu aies la charge d'un programme qu'utiliseront 500 personnes alors que tu n'arrives pas à sélectionner un onglet ?

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

PCPT · Answer

c'est bon çà

cs_Marathon Man · Answer

en fait je découvre depuis une semaine le vba et je veux supprimer la forme papier des bons de commandes d'un chu de 5500 personnes
c'est un gros projet et c'est très intéressant
++

cs_Marathon Man · Answer

j'ai oublié j'ai compris pour l'enregistreur de macro
+

mortalino · Answer

Pas de problème !

Perso, ça m'a énormément aidé au début. (et même encore maintenant).

Il faut faire des test, c'est très interressant (même la mise en page est totalement enregistrable) et enrichissant !

Bonne continuation !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

On te souhaite bonne chance dans ton projet.
Si tu as besoin d' aide, demandes à Mortalino, 
Il se fera une joie de te répondre .

cs_Marathon Man · Answer

merci encore et bon week-end à tous

mortalino · Answer

N'hésitez pas, à venir sur mon site d'entre-aide :

www.mortalino_aide_le_peuple.com
Non sans rire, Marathon Man, t'es le bienvenue sur Codes Sources !

Bonne soirée à tous !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

Mortalino
Je me suis permis de dire ça parce que je sais que tu es un chic type.

mortalino · Answer

Mais il n y a pas de problème, Chaibat 
J ai dit ça sous un ton humoristisque.

Et le coup du bienvenue pour Marathon, était sincère. 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_Marathon Man · Answer

AUCUN PROBLEME UN MARATHONIEN EST COOL
Je suis en train de bricoler tes macros MORTALINO car il y a  des détails

J'ai fait des copies du classeur originale 

Ne vous inquiétez pas

cs_Marathon Man · Answer

Pour info

J'ai réussi à aller sur ma page menu en utilisant une command dans le code de 
l'userform 

Bonne nuit

cs_Marathon Man · Answer

je viens de m'appercevoir que l'userform reste sur ma feuille
avez-vous une solution ?

si est ce qu'il y a ne command a mettre dans le code du boutton pour qu'il relance thisworkbook comme ça je repare sur un cycle

Merci

mortalino · Answer

Met Unload Me sur le bouton quitter du UserForm
pour le décharger (et donc le fermer)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_Marathon Man · Answer

Nickel
Cette fois je vais me coucher 
Merci encore pour tout

TEST CELLULES VIDES

101 réponses

Votre réponse

Discussions similaires