Comment integrer le nom d'une cellule dans une macro
Résolu
robbybasch
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Comment integrer le nom d'une cellule dans une macro
- Intégrer une vidéo dans un powerpoint - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
5 réponses
Bonjour
C1 contient soit "Devis" soit "Facture"
Pour la page 1
.LeftHeader = Activesheet.Range("C1") & " Client"
Pour la page 2
.LeftHeader = "Copie " & Activesheet.Range("C1") & " Comptabilité"
Cordialement
C1 contient soit "Devis" soit "Facture"
Pour la page 1
.LeftHeader = Activesheet.Range("C1") & " Client"
Pour la page 2
.LeftHeader = "Copie " & Activesheet.Range("C1") & " Comptabilité"
Cordialement
Bonjour
Essayer ceci :
Mais cette macro risque de crée des erreur.
Pour ne pas que ça fasse d'erreur il me faudrait le nom de la feuille ou ce trouve la cellule C1
*Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utils"
Essayer ceci :
Sub imprimer_deux_pages() ActiveSheet.PageSetup.PrintArea = "$B$1:$K$44" ' Definition de l'impression With ActiveSheet.PageSetup 'Page 1 .LeftHeader = Cells(1, 3).Value & " Client" ' Entete de page End With ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" With ActiveSheet.PageSetup 'Page 2 .LeftHeader = "Copie " & Cells(1, 3).Value &" Comptabilité" End With ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End Sub
Mais cette macro risque de crée des erreur.
Pour ne pas que ça fasse d'erreur il me faudrait le nom de la feuille ou ce trouve la cellule C1
*Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utils"
Bonjour,
Si tu veux rentrer un texte en dur dans la cellule A1, tu tapes :
range("A1") = "MON TEXTE"
ou [A1] = "MON TEXTE"
ou Cells(1,1) = "MON TEXTE"
Si tu veux utiliser un texte saisie en B1 pour l'intégré en cellule A1 tu tapes :
range("A1") = range("B1")
ou [A1] = [B1]
ou cells(1,1) = cells(1,2)
Si tu veux rentrer un texte en dur dans la cellule A1, tu tapes :
range("A1") = "MON TEXTE"
ou [A1] = "MON TEXTE"
ou Cells(1,1) = "MON TEXTE"
Si tu veux utiliser un texte saisie en B1 pour l'intégré en cellule A1 tu tapes :
range("A1") = range("B1")
ou [A1] = [B1]
ou cells(1,1) = cells(1,2)
grand merci à ccm81
Cela fonctionne super pour le dépannage rapide
Et encore merci
et merci aux autres spécialistes de la macro. Toujours aussi super ce forum
Cela fonctionne super pour le dépannage rapide
Et encore merci
et merci aux autres spécialistes de la macro. Toujours aussi super ce forum
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question