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

sev · 30 Octobre 2008

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

Kotov · 30 Octobre 2008

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

Compte Supprimé 979 · 30 Octobre 2008

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+

sev · 30 Octobre 2008

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

Merci pour votre rapidité,
Mais celà ne fonctionne pas j'ai toujour le " et " si C1 est vide

Compte Supprimé 979 · 30 Octobre 2008

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

Re,

Alors là, tu m'étonnes !?

Sans fichier ça va être difficile !

A+

Kotov · 30 Octobre 2008

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

sev · 31 Octobre 2008

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

Compte Supprimé 979 · 31 Octobre 2008

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

Salut,

If ("[Ca]Fichier!C1") ="" Then

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

sev · 31 Octobre 2008

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

Effectivement j'ai omis le Range ; mais le résultat est le même !!!

job75 · 31 Octobre 2008

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+

Compte Supprimé 979 · 31 Octobre 2008

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

Salut Job75,

Bien vue les remarques, je n'avais même pas fait attention

A+

sev · 1 Novembre 2008

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

Compte Supprimé 979 · 1 Novembre 2008

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+

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

sev

Guest

Kotov

XLDnaute Impliqué

Compte Supprimé 979

Guest

sev

Guest

Compte Supprimé 979

Guest

Kotov

XLDnaute Impliqué

sev

Guest

Compte Supprimé 979

Guest

sev

Guest

job75

XLDnaute Barbatruc

Compte Supprimé 979

Guest

sev

Guest

Compte Supprimé 979

Guest

Discussions similaires