fne67
Messages postés17Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention19 septembre 2009
-
21 févr. 2009 à 16:15
fne67
Messages postés17Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention19 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
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 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.
fne67
Messages postés17Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention19 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