Code pour "quel que soit le contenu de la cellule"

Ntica Messages postés 9 Statut Membre -  
Ntica Messages postés 9 Statut Membre -
Bonjour,

J'aimerais insérer un code VBA dans ma macro pour me permettre d'afficher le contenu d'une fusion de deux cellules ("B1:C1") (c'est un titre d'ailleurs) avec la date.
Merci bien.

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    le contenu d'une fusion de deux cellules ("B1:C1")
    est celui de la première cellule de la plage fusionnée soit ici B1
    un exemple de code (cellule est la cellule où va être affiché le résultat
    et plage la plage fusionnée)
    Range(cellule).Value = plage.Cells(1, 1)

    RQ. Si par contre tu veux afficher le résultat (concaténé) des deux cellule de la plage B1:C1
    Range(cellule).Value = plage.Cells(1,1) & plage.cells(1,2)
    ou
    Range(cellule).Value = Range("B1").Value & range("C1").Value

    Bonne suite
    0
    1. Ntica Messages postés 9 Statut Membre
       
      Merci ccm81 d'avoir répondu mais c'est pas vraiment ce que je cherche :(!
      j'élucide encore: j'ai plusieurs fichiers sur lesquels j'exécuterai ma macro le problème c'est que chaque fichier a son propre titre mais ce qui est commun entre tous les fichiers c'est la cellule où se trouve le titre donc je veux un code qui m'affichera le contenu de cette cellule quel que soit le titre + la date

      voici mon code mais ça lui manque encore la partie permettant d'afficher le contenu de la cell B1:C1 (c'est une fusion)
      'Titre
      Cells(1, 2) = " jusqu'au " & Date
      Range("B1:c1").Select
      0