Cellule

Résolu
fne67 Messages postés 17 Date d'inscription samedi 29 septembre 2007 Statut Membre Dernière intervention 19 septembre 2009 - 21 févr. 2009 à 16:15
fne67 Messages postés 17 Date d'inscription samedi 29 septembre 2007 Statut Membre Dernière intervention 19 septembre 2009 - 22 févr. 2009 à 05:44
Bonjour à tous,
Voila j'ai un petit problème de longueur de chiffre, j'utilise ce code pour intégrer mon chiffre dans Excel 2007 et donc quand la cellule est occupée je passe à la en dessous. Le problème est que le chiffre est trop long et je ne peux pas vue la structure du classeur mettre une colonne plus large, mais je peux soit fusionner la cellule active avec celle à droite soit débordé comme le ferai un texte.
J'ai essayé avec ce bout de code :  Range(ActiveCell(1, 1), ActiveCell(1, 2)).SelectCells(ActiveCell, 1).Merge
mais ça ne fonctionne pas

Range("reference").Activate
If Range("reference").value <> "" Then
    While ActiveCell.value <> ""
        ActiveCell.Offset(1, 0).Activate
    Wend
End If
ActiveCell.value = ComboBox18B.List(ComboBox18B.ListIndex, 2)

Quelqu'un aurait-il une solution SVP
Merci d'avance

2 réponses

cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
21 févr. 2009 à 19:30
Salut
Au sujet de la fusion de cellules adjacentes, ce qui suit fonctionne avec Excel 2000.
Range(ActiveCell(1, 1), ActiveCell(1, 2)).Merge
Je ne sait si avec la version 2007 cela est encore utilisable.
Affaire à suivre.

Chao
3
fne67 Messages postés 17 Date d'inscription samedi 29 septembre 2007 Statut Membre Dernière intervention 19 septembre 2009
22 févr. 2009 à 05:44
Salut cnt,
je n'ai pas été très malin sur ce coup, en effet cela fonctionne aussi avec Excel 2007 mais au bon endroit :
 Range("reference").Activate
If Range("reference").value <> "" Then
    While ActiveCell.value <> ""
        ActiveCell.Offset(1, 0).Activate
         Range(ActiveCell(1, 1), ActiveCell(1, 2)).Merge
Wend
End If
ActiveCell.value = ComboBox18B.List(ComboBox18B.ListIndex, 2)
Merci beaucoup
Salutations très distinguées
0
Rejoignez-nous