Discussion :

[goninph]

Bonjour,

Dans ma base de donnée, j'aimerai que les cellules vides ne soient pas vide.
Y a t'il une solution pour que les cellules vide contiennent toujours un apostrophe. Par exemple, lorsque le numéro de téléphone manque ou le prénom de la personne manque?

En fait, lorsque la cellule est vide, j'ai une mise en forme conditionnelle qui me jauni la cellule, le but serait d'avoir une macro qui ajoute une apostrophe dans toutes les cellules jaunes

Est ce possible avec une macro ?

Voir image

Merci pour votre aide et excellent weekend Philippe

[78chris]

Bonjour

L'apostrophe est une mauvaise idée car, ayant un rôle spécifique pour Excel, elle ne s'affiche pas si elle est seule ou en début de contenu.

Même si elle apparaissait elle se verrait moins que ta MFC. Quel serait l'intérêt opérationnel de ce symbole ?

[goninph]

Bonjour 78chris,

L'intérêt opérationnel de ce symbole est d'éviter la valeur 0 lors de la concaténation ?

Merci A+ Philippe

[goninph]

Hello,

Voilà, j'ai trouvé et je suis très fier d'avoir réussi à composer cette macro

Merci à tous et bonne soirée
A+ Philippe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) 'chaque modification de cellules lance la macro
 
    Dim i As Integer
    Dim J As Integer
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
For i = 3 To Range("A65536").End(xlUp).Row 'De la ligne 3 à la dernière cellule pleine de la colonne A
For J = 3 To 9 'De la colonne C à la colonne I
 
        If IsEmpty(Cells(i, J).Value) Then Cells(i, J).Value = "'" 'Si la cellule est vide ajouter un apostrophe
 
Next J
Next i
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

[78chris]

Re

...L'intérêt opérationnel de ce symbole est d'éviter la valeur 0 lors de la concaténation...

Un concaténation ne donne 0 que si une cellule à concaténer contient 0...

Si tu donnais plus de détail sur ton contexte on pourrait chercher des pistes...

[goninph]

Hello,

La concaténation prends les valeurs issues de formules Vcherche.
A+

[78chris]

Re

Imbrique ta recherche dans un SI :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(RECHERCHEV(....)=0;"";RECHERCHEV(....))

ou si la chaîne ne peut contenir 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SUBSTITUE(RECHERCHEV(...);0;"")

ou SUBSTITUER dans la concaténation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A2&B2&SUBSTITUE(C2;0;"")....

[goninph]

Hello,
Il n'y a aucun affichage ou résultat zéro dans la Vrecherche, même lorsque la cellule est vide, le zéro apparaît à la concaténation, mais ma macro ci-dessous a résolu le problème.

Merci pour votre aide et bon dimanche
Phillippe

[78chris]

Re

Vrecherche n'existe pas. C'est RECHERCHEV. Et RECHERCHEV renvoie bien 0 si la colonne demandée est vide...

Quelle est la formule de concaténation ?

EDit : à noter que le VBA cité boucle inutilement 2 fois par cellule...

[goninph]

Hello,

Que dois-je modifier pour ne pas boucler 2 fois les cellules ?

Voici la formule :
=Partenaires!D37&" par "&Partenaires!C37&" : "&Partenaires!E37&" | "&Partenaires!F37&" "&Partenaires!G37&" "&Partenaires!H37&" / "&Partenaires!I37&" "&Partenaires!J37

Merci et bonne journée Philippe

[78chris]

Re

Concaténation standard.

As-tu essayer la fonction SUBSTITUE proposée au #7 ?