VBA bloquer taille chaine dans cellule

Question

Bonjour, 

J'ai un petit soucis (et ce n'est pas faute de chercher)


Quelqu'un saurait comment bloquer la taille visible de la chaine , afin de ne voir que la chaine de caractere ( qui entre dans la taille de la cellule)  et ne pas voir la chaine visible sur d'autre celllule a sa droite (si elles sont vide)  
Pour schématiser, je souhaiterais le même effet que lorsque la cellule de droite n'est pas vide c'est a dire ne voir que la chaine qui entre dans la taille de la cellule.

2e petite question:

Je voudrais avoir un evenement "click souris" (que je sais faire mais qui se fait que sur une feuille) je n'arrive pas a le rendre commun a tous ... car le probleme c'est que cette evenement se fait sur toutes les sheets qui se crée et donc la feuille n'existe pas , donc je ne sais pas comment créer un code qui impacterait une futur sheet :( .

Si qu'lqu'un pouvait m'aider ça serait TOP !

Cordialement,


Configuration: Windows XP / Internet Explorer 7.0

lermite222 · Answer

Bonkour, 
1°) mettre un espace dans les cellules adjacentes, Je ne vois que cette possibilité . 
2°) Il n' a pas d'évènement Click, c'est soit DoubleClick ou ClicDroit et tu peu les regrouper dans le module ThisWorkBook qui a les même évènements mais qui englobe toutes les feuilles. 
A+ 
  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

michel_m · Answer

Bonjour à tous

question2 sans VBA

Données-validation-longueur du texte-inférieure à

Alexia · Answer

Bonjour,
Merci à vous 2, 
Pour la 1ere question j'ai fait comme vous m'avez conseillé,
Et pour la 2e , j'ai plutot joué sur l'evenement double click , mais le probleme c'est que je n'arrive pas à l'utiliser que sur "une plage" de cellule .
Cette plage doit pouvoir m'afficher une msgbox ... 

Je bloque un peu pour l'instant :(

lermite222 · Answer

Re, 
Un exemple avec deux plages, à mettre dans le module ThisWorkBook 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 
    If Target.Count > 1 Then Exit Sub 
    If Not Intersect(Target, Range("A1:A10,C1:C10")) Is Nothing Then 
        MsgBox "Feuille : " & Sh.Name 
    End If 
End Sub
A+ 
  
  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

VBA bloquer taille chaine dans cellule

4 réponses

Discussions similaires

Newsletters