Incrémenter des lignes à partir d'une cellule
#1
Débutant XLPages

Inscription: 11/11/2016
De France

Messages: 5

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 11-11-2016 17h00

Bonjour, 

 

Voilà, j'aimerais créer une formule qui renvoie un mot dans un nombre x de ligne à partir d'une formule

Je m'explique: 

 

Feuille 1 - Cellule A1 : j'ai un texte 

Ce texte renvoie dans la cellule B1 un chiffre x correspondant

 

J'aimerais que dans ma feuille 2 - colonne A, le texte de la cellule A1 feuille 1 apparaisse dans x (chiffre de la colonne B1 de la feuille 1) lignes de la colonne A de la feuille 2 

 

Et ainsi de suite car dans la feuille 1 - cellule A2 se trouve un nouveau texte renseignant un autre chiffre 

 

Je vous joins le fichier Excel sans formule, pour bien faire comprendre ce que j'aimerais car ca ne doit pas être très clair...Désolé 

 

Si possible éviter les macros car je ne sais pas les écrire ou alors il faut me la donner entière et sans fautes lol et j'ai essayé avec les formules NB.SI/NBVAL/DECALER... en essayant d'intégrer des celulles vides à chaque passage de différent mots... mais rien n'y fait... 

Je pourrais très bien étirer x fois le mot, le problème cest que j'ai plus de 4000 lignes à traiter... 

 

Je vous remercie par avance si vous arrivez à me sortir de là hi hi hi 

 

Bonne soirée 

Pièce jointe:
xlsx Excel forum.xlsx   [ Taille: 8.71 Ko - Téléchargements: 408 ]
Hors Ligne
Rapport   Haut 

Re: Incrémenter des lignes à partir d'une cellule
#2
Aspirant XLPages

Inscription: 15/07/2016
De Allier

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2007, 2010
Posté le : 12-11-2016 22h04

Bonsoir Leslie,

 

Je viens de voir votre message, je vous propose cette solution par VBA.

Le fonctionnement est simple, il suffit de cliquer sur un des boutons "Report" sur la feuille 1 où la feuille 2 et pour ajouter une nouvelle donné, il faut d'abord tout effacer en cliquant sur l'un des boutons "Effacer" sur l'une des 2 feuilles.

Ses macros fonctionnent pour 65000 lignes, ça devrait le faire. smiley

Sachant que vous pouvez supprimer l'un où l'autre des boutons selon votre convenance.

 

Ci-joint votre fichier.

 

Cordialement.

Pièce jointe:
xlsm Excel forum V1.xlsm   [ Taille: 19.10 Ko - Téléchargements: 456 ]
Hors Ligne
Rapport   Haut 

Re: Incrémenter des lignes à partir d'une cellule
#3
Débutant XLPages

Inscription: 11/11/2016
De France

Messages: 5

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 14-11-2016 08h52

Bonjour, 

 

C'est parfait!!!! Merci beaucoup beaucoup, cela fait une semaine que je bûche la-dessus

Vraiment encore merci 

 

Une excellente journée à vous 

Hors Ligne
Rapport   Haut 

Re: Incrémenter des lignes à partir d'une cellule
#4
Débutant XLPages

Inscription: 11/11/2016
De France

Messages: 5

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 29-11-2016 17h35

Bonjour,

 

Votre macro est parfaite cependant elle est un peu trop lourde lorsqu'on l'applique à plusieurs cellules engendrant le ralentissement de l'ordinateur

 

Auriez-vous moyen de simplifier ou d'alléger ce code ? 

 

Sub Report()

 

Application.ScreenUpdating = False

    Sheets("calcul-MEX").Select

    With Range("A2:P2000")

        .ClearContents

    End With

  

 

Application.ScreenUpdating = False

Dim WsS As Worksheet, WsC As Worksheet, WsD As Worksheet

 

 

Dim j As Integer, i As Integer

        Set WsS = Worksheets("ENTREES")

        Set WsC = Worksheets("calcul-MEX")

        Set WsD = Worksheets("D-Projet")

'cells(j:ligne, colonne)

    For j = 1 To WsS.Range("Z" & Rows.Count).End(xlUp).Row

        For i = 1 To WsS.Cells(j, 26).Value

            WsS.Cells(j, 1).Copy Destination:=WsC.Range("A" & WsC.Range("A" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 2).Copy Destination:=WsC.Range("B" & WsC.Range("B" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 3).Copy Destination:=WsC.Range("C" & WsC.Range("C" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 4).Copy Destination:=WsC.Range("D" & WsC.Range("D" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 5).Copy Destination:=WsC.Range("E" & WsC.Range("E" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 6).Copy Destination:=WsC.Range("F" & WsC.Range("F" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 7).Copy Destination:=WsC.Range("G" & WsC.Range("G" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 8).Copy Destination:=WsC.Range("H" & WsC.Range("H" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 9).Copy Destination:=WsC.Range("I" & WsC.Range("I" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 10).Copy Destination:=WsC.Range("J" & WsC.Range("J" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 11).Copy Destination:=WsC.Range("K" & WsC.Range("K" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 12).Copy Destination:=WsC.Range("L" & WsC.Range("L" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 13).Copy Destination:=WsC.Range("M" & WsC.Range("M" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 14).Copy Destination:=WsC.Range("N" & WsC.Range("N" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 15).Copy Destination:=WsC.Range("O" & WsC.Range("O" & Rows.Count).End(xlUp).Row + 1)

            WsS.Cells(j, 16).Copy Destination:=WsC.Range("P" & WsC.Range("P" & Rows.Count).End(xlUp).Row + 1)

           

            Application.CutCopyMode = False 'On vide le presse-papier

        Next i

    Next j

    Set WsC = Nothing: Set WsS = Nothing: Set WsD = Nothing

    

   

    Worksheets("RAPPORT").Activate

 

End Sub

 

Je vous remercie par avance et vous souhaite une agréable soirée 

Hors Ligne
Rapport   Haut 

Re: Incrémenter des lignes à partir d'une cellule
#5
Aspirant XLPages

Inscription: 15/07/2016
De Allier

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2007, 2010
Posté le : 30-11-2016 10h20

Bonjour Leslie,

 

J'ai vu votre code et j'ai peut-être une idée, mais je suis aveugle quand à votre fichier, sinon a le reconstituer avec le code.

Pouvez vous joindre votre fichier et si les données sont confidentielles, les remplacer par des données bidons.

 

Cordialement.

Hors Ligne
Rapport   Haut 

Re: Incrémenter des lignes à partir d'une cellule
#6
Débutant XLPages

Inscription: 11/11/2016
De France

Messages: 5

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 01-12-2016 15h24

Bonjour, 

 

Je vous remercie de votre réponse

Je vous joins le fichier Excel

En effet, cela est du milieu professionnel mais tant pis 

 

Encore un grand merci :) 

Hors Ligne
Rapport   Haut 

Re: Incrémenter des lignes à partir d'une cellule
#7
Débutant XLPages

Inscription: 11/11/2016
De France

Messages: 5

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 01-12-2016 15h50

Rebonjour, 

 

Nous n'arrivons pas à réduire le fichier à 80 Ko comme le site le demande... 

Serait-il possible de communiquer par adresse mail ? 

Hors Ligne
Rapport   Haut 

Re: Incrémenter des lignes à partir d'une cellule
#8
Aspirant XLPages

Inscription: 15/07/2016
De Allier

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2007, 2010
Posté le : 01-12-2016 16h44

Bonjour Leslie,

 

Oui c'est possible, je vous envoi un message privé.

 

Cordialement.

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes