IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Comment rajouter du texte dans une cellule en fonction du nombre de pages [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    passioné
    Inscrit en
    Février 2015
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : passioné

    Informations forums :
    Inscription : Février 2015
    Messages : 20
    Par défaut
    Bonsoir,

    J'aimerai sur Excel 2010 rajouter du texte dans des cellules en fonction du nombre total de pages.
    J'ai fais une macro avec l'aide de Bbil et de la FAQ qui me recopie le nom des dossiers dans un dossier spécifique que je recherche à l'aide d'une boite de dialogue et les coller dans excel. Ca me crée un certains nombre de pages qui peux varier.

    Donc mon but serai sur la première page mettre du texte dans la cellule ("D6") et dans la cellule ("F39") pour la première page, et donc en se référant au nombre de pages existant et qui peux varier coller les mêmes informations à la même hauteur sur les différentes feuilles.

    voici ma macro de départ :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    Private Sub Liste_Dossiers_dans_un_dossier()
     
    ThisWorkbook.Sheets("Feuil1").Cells(6, 1).CurrentRegion.Clear
     
    Dim i As Integer
     
    'Boite de dialogue ouvrant explorateur
    With Application.FileDialog(msoFileDialogFolderPicker)
        'Définit un titre pour la boîte de dialogue
        .Title = "Choisissez votre dossier source:"
        'Affiche la boîte de dialogue
        .Show
     
        'Affiche le nom du dossier sélectionné
        If .SelectedItems.Count > 0 Then
        MsgBox .SelectedItems(1)
        MyPath = .SelectedItems(1)
     
        End If
     
    End With
     
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
     
    MyName = Dir(MyPath, vbDirectory)    ' Extrait la première entrée.
     
    i = 1
     
    Do While MyName <> ""    ' Commence la boucle.
     
        ' Ignore le dossier courant et le dossier
        ' contenant le dossier courant.
        If MyName <> "." And MyName <> ".." Then
     
            ' Utilise une comparaison au niveau du bit pour
            ' vérifier que MyName est un dossier.
            If (GetAttr(MyPath & MyName) _
                And vbDirectory) = vbDirectory Then
                Debug.Print MyName
     
           'Colle le nombre de dossiers dans la 1ère colonne à la ligne 6 pour commencer
            ThisWorkbook.Sheets("Feuil1").Cells(6 + i, 1) = i
            'Mets une bordure à la cellule
            ThisWorkbook.Sheets("Feuil1").Cells(6 + i, 1).Borders.Value = 1
     
            'Colle le 1er nom du dossier dans la 2ème colonne à la ligne 6 pour commencer
            ThisWorkbook.Sheets("Feuil1").Cells(6 + i, 2) = MyName
            'mets une bordure a la cellule
            ThisWorkbook.Sheets("Feuil1").Cells(6 + i, 2).Borders.Value = 1
     
            i = i + 1
     
            End If
     
        End If
        MyName = Dir
    Loop
     
    Range("A1").Select
     
    End Sub
    Re Bonsoir,

    J'ai trouvé une piste avec ce code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox ExecuteExcel4Macro("Get.Document(50)") & " Pages seront imprimées "
    Maintenant j'ai plus qu'a incrémenter mes cellules

  2. #2
    Membre averti
    Homme Profil pro
    passioné
    Inscrit en
    Février 2015
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : passioné

    Informations forums :
    Inscription : Février 2015
    Messages : 20
    Par défaut
    J'ai trouvé ma solution :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    MsgBox ExecuteExcel4Macro("Get.Document(50)") & " Pages seront imprimées "
     
    Nb_Pages = ExecuteExcel4Macro("Get.Document(50)")
     
    MsgBox "Total de pages : " & Nb_Pages
     
    Dim Incrementation_NbPage As Integer
     
    Incrementation_NbPages = 0
     
    Do While Incrementation_NbPages < Nb_Pages
     
    ThisWorkbook.Sheets("Feuil1").Cells(15 + Incrementation_NbPages * (50), 6).Value = "Date de Livraison : " & Date_Livraison
     
    Incrementation_NbPages = Incrementation_NbPages + 1
     
    MsgBox "Incrementation_NbPages : " & Incrementation_NbPages
     
    Loop
     
    ActiveWindow.View = xlPageLayoutView
    ActiveWindow.View = xlNormalView
     
    Range("A1").Select
     
    End Sub
    Voila, je marque résolu

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Il semblerait que le fait de parler de ses problèmes permette vraiment de les résoudre!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Débutant] Rajouter texte dans une cellule d'un tableau de cellules (cell array)
    Par DudeTitus dans le forum MATLAB
    Réponses: 2
    Dernier message: 20/06/2014, 13h12
  2. Comment créer un commentaire dans une cellule d'Excel ?
    Par WebPac dans le forum API, COM et SDKs
    Réponses: 2
    Dernier message: 26/04/2005, 09h23
  3. comment rajouter un caractère " ' " dans une requê
    Par GDVL dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 30/07/2004, 16h58
  4. [langage] Comment rajouter des champs dans une liste
    Par toto_titi dans le forum Langage
    Réponses: 4
    Dernier message: 28/08/2003, 14h09
  5. comment ecrire du texte dans une window application
    Par gaut dans le forum Autres éditeurs
    Réponses: 2
    Dernier message: 16/07/2003, 10h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo