Cellule

Résolu
Signaler
Messages postés
17
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
19 septembre 2009
-
Messages postés
17
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
19 septembre 2009
-
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

Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010

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
Messages postés
17
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
19 septembre 2009

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