Fonction IF qui ne fonctionne pas

Version imprimable

Bonjour à tous,

Le code suivant ne fonctionne pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 'En tête et pied de page des feuilles
        If Commentaire = "" Then 'Si pas de commentaire alors pied de page vide
            For x = 1 To Sheets.Count
                With Sheets(x).PageSetup
                    .CenterHeader = "&B&14&""Arial""" & E & Chr(10) & "&12&B&A" 'nom échantillon, nom de la feuille en arial gras 12
                    .RightHeader = "&8&""Arial""" & "Masse pastille = " & M & " mg (m&YThéo.&Y=20mg)" & Chr(10) & "PAF échantillon = " & P & " %" & Chr(10) & "Surface pastille = " & S & " mm&X2&X (S&YThéo.&Y=201mm&X2&X)"
                End With
            Next x
        Else 'si commentaire alors pied de page = commentaire
            For x = 1 To Sheets.Count
                With Sheets(x).PageSetup
                    .CenterHeader = "&B&14&""Arial""" & E & Chr(10) & "&12&B&A" 'nom échantillon, nom de la feuille en arial gras 12
                    .RightHeader = "&8&""Arial""" & "Masse pastille = " & M & " mg (m&YThéo.&Y=20mg)" & Chr(10) & "PAF échantillon = " & P & " %" & Chr(10) & "Surface pastille = " & S & " mm&X2&X (S&YThéo.&Y=201mm&X2&X)"
                    .LeftFooter = "&10&B&""Arial""" & "Commentaire :&B " & C
                End With
            Next x
        End If

Le but de cette fonction est d'avoir, en pied de page, le champ "Commentaire :" suivi de la valeur de la textbox (variable C) si la textbox n'est pas vide à l'inverse si la textbox est vide je ne veux pas de pied de page.

Or dans le cas où la textbox est vide j'ai le champ commentaire (suivi de rien) qui apparaît en pied de page. Et de la même manière, j'ai le champ Commentaire sans la valeur de la textbox C en pied de page si ma Combobox n'est pas vide.

Je suppose que mon erreur vient dans la déclaration de : "Textbox=vide"

A noter que ma textbox est intitulé Commentaire et que J'ai C=Commentaire.Text avec C défini en Public C as String

Merci pour votre aide

Au cas où commentaire="" il faudrait indiquer .LeftFooter à vide

Et avec une seule boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        .CenterHeader = "&B&14&""Arial""" & E & Chr(10) & "&12&B&A"    'nom échantillon, nom de la feuille en arial gras 12
        .RightHeader = "&8&""Arial""" & "Masse pastille = " & M & " mg (m&YThéo.&Y=20mg)" & Chr(10) & "PAF échantillon = " & P & " %" & Chr(10) & "Surface pastille = " & S & " mm&X2&X (S&YThéo.&Y=201mm&X2&X)"
        If Commentaire <> "" Then                 'Si pas de commentaire alors pied de page vide
            .LeftFooter = "&10&B&""Arial""" & "Commentaire :&B " & C
        Else
            .LeftFooter = ""
        End If
    End With
Next x

19/01/2012, 16h28
Vincent32

ça ne fonctionne pas.

à présent, aussi bien lorsque la textbox est pleine, que lorsqu'elle est vide, je n'ai plus du tout de pied de page.

Enfin lorsqu'elle est vide c'est normal (c'est ce que je veux !):zoubi:
19/01/2012, 16h48
mercatog

Tu nous pose une partie du code et j'avais expliqué que lorsque tu ne veux pas le pied de page, tu ne dois pas oublier de mettre

Code:

.LeftFooter=""

Pour "effacer" le pieds de page éventuellement existant.

A toi d'adapter le tout dans ton code

Je ne comprends pas ce que tu essayes de me dire.

Citation:

Tu nous pose une partie du code et j'avais expliqué que lorsque tu ne veux pas le pied de page, tu ne dois pas oublier de mettre
Code :Sélectionner tout - Visualiser dans une fenêtre à part
.LeftFooter=""
Pour "effacer" le pieds de page éventuellement existant.

A toi d'adapter le tout dans ton code

J'ai réessayer avec le code que tu m'as fourni :
Code:

1 2 3 4 5 6 7 8 9 10 11 For x = 1 To Sheets.Count With Sheets(x).PageSetup .CenterHeader = "&B&14&""Arial""" & E & Chr(10) & "&12&B&A" 'nom échantillon, nom de la feuille en arial gras 12 .RightHeader = "&8&""Arial""" & "Masse pastille = " & M & " mg (m&YThéo.&Y=20mg)" & Chr(10) & "PAF échantillon = " & P & " %" & Chr(10) & "Surface pastille = " & S & " mm&X2&X (S&YThéo.&Y=201mm&X2&X)" If Commentaire <> "" Then 'Si pas de commentaire alors pied de page vide .LeftFooter = "&10&B&""Arial""" & "Commentaire :&B " & C Else .LeftFooter = "" End If End With Next x
Mais l, il me supprime le pied de page même lorsque j'indique quelque chose dans la textbox commentaire.

Il est possible que mon erreur vienne de l'userform ou de la déclaration des variables (que j'ai du mal à maîtriser:oops:), alors voici le code derrière le bouton valider de mon userform :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Valider_Click() E = Echantillon.Text M = Masse.Value P = PAF.Value S = Surface.Value C = Commentaire.Text 'Importation des données entrées dans l'userform pour la macro Call Vinvin 'Appelle macro Unload UserForm1 'action de fermeture de l'userform End Sub
avec :
Code:

1 2 3 4 5 Public E As String Public M As String Public P As String Public S As String Public C As String
Merci pour ton aide Mercatog

19/01/2012, 17h36
gFZT82

Bonjour,

Essaie en remplaçant

Code:

If Commentaire <> "" Then

par

Code:

If C <> "" Then

Cordialement.

Bonjour,

J'avais déjà essayé et ça ne fonctionne pas j'ai également essayé ceci qui ne fonctionne pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        .CenterHeader = "&B&14&""Arial""" & E & Chr(10) & "&12&B&A"    'nom échantillon, nom de la feuille en arial gras 12
        .RightHeader = "&8&""Arial""" & "Masse pastille = " & M & " mg (m&YThéo.&Y=20mg)" & Chr(10) & "PAF échantillon = " & P & " %" & Chr(10) & "Surface pastille = " & S & " mm&X2&X (S&YThéo.&Y=201mm&X2&X)"
        If Commentaire <> "" Then                 'Si pas de commentaire alors pied de page vide
            .LeftFooter = "&10&B&""Arial""" & "Commentaire :&B " & Commentaire
        Else
            .LeftFooter = ""
        End If
    End With
Next x

Avec C=Commentaire.Value au lieu de C=Commentaire.Text

D'autres idées ?

20/01/2012, 09h37
gFZT82

1 pièce(s) jointe(s)

Bonjour,

De mon coté, la procédure fonctionne correctement avec les éléments apportés précédemment.
Essaie de voir ce qui diffère avec le fichier test.

Cordialement.
20/01/2012, 09h43
pijaku
Bonjour à tous,

Excusez l'incruste...
Je pense à une erreur "naïve"...

C'est quoi "Commentaire"?
Le nom attribué, via la propriété Name, à un TextBox? Ou juste l'étiquette, Label, placé à côté de ce textbox dans ton USF? Ou autre chose encore...

Suggestions :
- sous VBE, vérifier la propriété Name du TextBox correspondant.
- Si le nom du TextBox est bien Commentaire, placer un MsgBox juste avant la ligne If commentaire, et ajouter des .Value (ou .Text) :
Code:

1 2 MsgBox Commentaire.Value If Commentaire.Value <> "" Then
remplir le TextBox et tester
20/01/2012, 10h32
Vincent32

Bonjour Pijaku,

Merci pour ton aide.

J'aurai pu faire cette erreur:oops::mouarf: (étourdi et débutant comme je suis), mais ce n'est pas le cas. Ma textbox a bien le nom commentaire (propriétés=> (Name)=> Commentaire)

je vais essayer tes suggestions . Value et . Text

Citation:

Je pense à une erreur "naïve"...

C'est quoi "Commentaire"?
Le nom attribué, via la propriété Name, à un TextBox? Ou juste l'étiquette, Label, placé à côté de ce textbox dans ton USF? Ou autre chose encore...

L'erreur est pire que ça :pastaper::boulet::fessee::pan::massacre::zekill::scarymov::moinsser::bug::traine:

C= 2 variables différentes :whistle:

Bon je change ça et je vous dis si ça fonctionne
Désolé à tous et merci beaucoup pour votre aide
20/01/2012, 12h48
Vincent32

Merci à tous,

et désolé de vous avoir fait perdre votre temps.

Ca fonctionne correctement