Fonction IF qui ne fonctionne pas [Résolu]

[Vincent32]

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

[mercatog]

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

[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 !)

[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

[Vincent32]

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

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), 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

[gFZT82]

Bonjour,

Essaie en remplaçant

Code :

If Commentaire <> "" Then

par

Code :

If C <> "" Then

Cordialement.

[Vincent32]

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 ?

[gFZT82]

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.

[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

[Vincent32]

Bonjour Pijaku,

Merci pour ton aide.

J'aurai pu faire cette erreur (é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

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

C= 2 variables différentes

Bon je change ça et je vous dis si ça fonctionne
Désolé à tous et merci beaucoup pour votre aide

[Vincent32]

Merci à tous,

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

Ca fonctionne correctement