Discussion :

[garulf0]

Bonjour!

Une dernière question avant de m'en retourner brouter dans mes verts pâturages:

Voilà, ma colonne A contient du texte. Celui-ci étant parfois plus long que la cellule, il déborde sur la cellule de droite. Jusqu'ici tout va bien.
Dans ma colonne B, j'ai une formule qui me renvoie tantôt des valeurs, tantôt rien =SI(condition;truc;"")

Le problème, c'est que cet imbécile d'excel (à moins que ce ne soit moi! ) considère qu'une cellule comportant "" n'est pas vide! Du coup, il me tronque mon joli texte.

Je vous vois déjà venir: "t'as qu'à fusionner tes cellules, patate!". Oui mais non! Parce que le texte n'est pas toujours le même, ni sur la même ligne!

Me voilà donc au comble du désarroi! Aidez-moi!!!

Merci d'avance!

[QuestVba]

Bonjour,

Quel problème du vide qui n'est pas vide alors qu'il paraît vide mais qu'il est quand même rempli.

Une cellule contenant une formule n'est, forcément, pas vide.

Si A1 = Ta valeur
Si B1 = Ton test
C1 =

Code :

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

=SI(OU(ESTVIDE(B1)=VRAI;B1="");"VRAI";"FAUX")

> Si B1 = Truc > C1 = Faux
> Si B1 = "" > C1 = Vrai

[Menhir]

Je vous vois déjà venir: "t'as qu'à fusionner tes cellules, patate!".

JAMAIS je ne te conseillerai ça. Pour moi, la fusion, c'est le mal ! A fuir autant que faire se peut.

La solution que j'utilise dans ce genre de cas (je ne sais pas si elle est applicable pour toi) est justement l'inverse : mettre une cellule (éventuellement une colonne) entre les deux, en ajustant les largeurs pour que, globalement, on en reviennent visuellement à l'aspect précédent.

Comme la cellule intermédiaire n'appartient ni à celle de ton texte, ni à celle de ton SI, les deux peuvent écrire dedans (si ta cellule SI est alignée à droite). Les deux textes peuvent même s'y superposer.

[garulf0]

Merci pour vos réponse!

@ QuestVBA: Euh... Je n'ai pas compris... Si j'écris cette formule, j'obtiendrais "VRAI" là où je voudrais le vide absolu de mes cellules! Non?

@Menhir: Oui... J'y avais déjà pensé. Malheureusement je ne peux pas le faire ainsi...

Début de piste (car la nuit porte conseil):
J'ai essayé d'utiliser Insertion --> Formes --> Zone de texte
Dedans j'ai écris =A3. (Soit l'une des cases qui contiennent le fameux texte qui déborde). Je définis un fond blanc. C'est parfait, ça se superpose!

Problème: Plus tard, ce texte ne sera plus forcément en A3, mais peut-être en A5! Comment pourrais-je faire se déplacer la zone de texte en même temps que ma case de texte?

[QuestVba]

Re-,

Bête question : pourquoi ne pas utiliser un code vba ? Tu n'aurais plus le problème de la case qui semble vide mais qui n'est pas réellement vide.

Tu fonctionnes dans ton code avec une condition sur base du changement dans une cellule et si cela correspond à ton critère, tu mets ton truc.Sinon tu ne fais rien. Donc pas de cases avec une condition qui te pourrit.

[garulf0]

Je suis complètement ouvert au VBA, c'est juste que je n'y connait absolument rien!
Ca donnerait quoi?

Edit: En gros la condition serait la suivante: Si la cellule A1 est nonvide, alors je peux modifier la cellule B1. (Formule à étirer, bien sûr...)

[QuestVba]

Re-,

Voici un code pour commencer (à mettre dans ta feuille). il se déclenche dès que tu modifies une cellule dans la plage A2:A10. Si tu écris "Coucou" dans cette plage, il indique "Tu as écrit coucou avec majuscule" dans la colonne D même ligne. Si la condition n'est pas remplie, il ne fait rien > du 'vrai vide'.

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Application.Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub 'Limite l'action du code sur la plage A2:A10
 
 If Selection.Cells.Count > 1 Then Exit Sub 'Limite l'action sur une seule cellule
 
 If Target.Value = "" Then 'Condition : si la cellule est effacée
 
     Target.Offset(0, 3).Value = "" 'Il efface la cellule de la colonne D correspondante
 
 Else 'Sinon
 
     Target.Offset(0, 3).Value = IIf(Target.Value = "Coucou", "Tu as écrit coucou avec majuscule", "") 'Écrit en colonne D (même ligne) que la colonne A (si A = "Coucou" alors "Tu as écrit coucou avec majuscule", sinon ""
 
 End If 'Fin de la condition
 
End Sub