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

Ne pas afficher de "et" si une valeure = " "

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sev
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sev

Guest
Bonsoir ,
Voici une partie de code ; je ne voudrais pas que s'affiche le " et " si la valeure de C1 est vide mais juste un espace " ".

Code: 
.bd1 = Range("[Ca]Fichier!A1").Offset(i, 0) & " " & Range("[Ca]Fichier!B1").Offset(i, 0) & [COLOR="Blue"]" et "[/COLOR] & _
        Range("[Ca]Fichier![COLOR="blue"]C1[/COLOR]").Offset(i, 0) & " " & Range("[Cat]Fichier!D1").Offset(i, 0)

Merci si vous pouviez me dépatouiller
 
Trier par date Trier par votes
Re : Ne pas afficher de "et" si une valeure = " "

Bonsoir Sev,

Je te propose :
Code: 
If Range("[Ca]Fichier!C1") = "" Then
   .bd1 = Range("[Ca]Fichier!A1").Offset(i, 0) & " " & Range("[Ca]Fichier!B1").Offset(i, 0) & " " & _
        Range("[Ca]Fichier!C1").Offset(i, 0) & " " & Range("[Cat]Fichier!D1").Offset(i, 0)
Else
.bd1 = Range("[Ca]Fichier!A1").Offset(i, 0) & " " & Range("[Ca]Fichier!B1").Offset(i, 0) & " et " & _
        Range("[Ca]Fichier!C1").Offset(i, 0) & " " & Range("[Cat]Fichier!D1").Offset(i, 0)
End If

bonne soirée
Kotov

Edit : Bonsoir BrunoM45, je vois que le Loiret est très présent ce soir 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ne pas afficher de "et" si une valeure = " "

Salut Sev, Kotov

Une autre solution
Code: 
.bd1 = Range("[Ca]Fichier!A1").Offset(i, 0) & " " & Range("[Ca]Fichier!B1").Offset(i, 0) _
  & IIf(Range("[Ca]Fichier!C1").Value = "", "", " et ") _
  & Range("[Ca]Fichier!C1").Offset(i, 0) & " " & Range("[Cat]Fichier!D1").Offset(i, 0)


A+
 
Vote positif 0 Vote négatif
Re : Ne pas afficher de "et" si une valeure = " "

Re,

En premier lieu, bien vérifier que la cellule est bien vide, qu'il n'y a pas un espace, ou une valeur de la même couleur que le fond de la cellule.

Ça parait simplet, mais c'est du vécu ! 😉

A +
Kotov
 
Vote positif 0 Vote négatif
Re : Ne pas afficher de "et" si une valeure = " "

Bonsoir , la cellule est bien vide et sans espace.

Quand je met ce code j'ai toujours le " et " :

Code: 
Option Explicit
Dim i As Integer
Dim j As Integer
Dim Fiche As String
Public Lettre1 As String
Public Lettre2 As String


Function ChargAd()
    On Error Resume Next
    MiseaBlancAD
    With Boite
        i = 0
        Do While Range("[Ca]Fichier!A1").Offset(i, 0) <> ""
            If Range("[Cat]Fichier!D1").Offset(i, 0) & " " & Range("[Ca]Fichier!B1").Offset(i, 0) = Boite.Nom_Prenom Then
                Exit Do
            End If
        i = i + 1
        Loop
        
If ("[Ca]Fichier!C1") ="" Then

.bd1 = Range("[Ca]Fichier!A1").Offset(i, 0) & " " & Range("[Ca]Fichier!B1").Offset(i, 0) & " " & _
         Range("[Ca]Fichier!D1").Offset(i, 0) 
  
Else

   .bd1 = Range("[Ca]Fichier!A1").Offset(i, 0) & " " & Range("[Ca]Fichier!B1").Offset(i, 0) & " et " & _
        Range("[Ca]Fichier!C1").Offset(i, 0) & " " & Range("[Cat]Fichier!D1").Offset(i, 0)
        
        
End If

End Sub
 
Vote positif 0 Vote négatif
Re : Ne pas afficher de "et" si une valeure = " "

Salut,

If ("[Ca]Fichier!C1") ="" Then
Cliquez pour agrandir...

Tu n'aurais pas oublié quelque chose par hasard !?

Regarde bien le code que Kotov t'a donné et celui ci-dessus 🙄

Ma c'est pas posssssiiiibbllllllleeeee 😀
 
Vote positif 0 Vote négatif
Re : Ne pas afficher de "et" si une valeure = " "

Bonsoir sev, Kotov, Bruno,

Beaucoup de questions sur cette fonction ChargAd :

- A quoi est supposée servir cette fonction ?
- ChargeAd n'est pas calculée en fin de macro
- qu'est-ce que Boite et bd1 ?
- With sans End With...

Mais je n'ai peut-être rien compris...

A+
 
Vote positif 0 Vote négatif
Re : Ne pas afficher de "et" si une valeure = " "

Bonjour,
Il s'agit d'une listbox de répertoire comprenant prénom , prénom2 et nom.
Lorsque je sélectionne un nom dans la listebox la fonction ChargeAd s'exécute pour afficher dans un label : Jean et Catherine Durand s'il y à 2 prénoms
ou : Michel Dupont s'il n'y à qu'un prénom

with sans End with est un oubli
 
Vote positif 0 Vote négatif
Re : Ne pas afficher de "et" si une valeure = " "

Salut SEV,

Tant que tu ne voudras pas nous mettre un bout de ton fichier, nous ne pourrons pas avancer 🙄

Ou alors débrouille toi de passer en mode débogage et de tester les valeurs renvoyer 😉

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

W
  • Question Question
XL 2016 La fonction SI avec conditions multiples
Réponses
4
Affichages
202
TooFatBoy
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
467
lynyrd
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
862
jurassic pork
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
Q
  • Résolu(e)
XL 2021 Ne pas imprimer une feuille si cellule de reference est égale a 0
Réponses
8
Affichages
164
job75
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
XLS : Fonctionnement des chiffres Unicode
Réponses
0
Affichages
400
Lu76Fer
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
654
Jojo973
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
2 K
Amigo
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
819
patricktoulon
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
397
Lau01150
L
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
841
desto
D
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
446
Anthony_51
A
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
3 K
NONO14
N
S
  • Résolu(e)
XL 2016 Boucle For ne s'exécute pas comme une boucle et boucle infinie
Réponses
2
Affichages
404
Stéphane_1
S
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
778
crocrocro
C
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
598
JJ69
J
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
679
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…