Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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 |
|
|
Re: Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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. Sachant que vous pouvez supprimer l'un où l'autre des boutons selon votre convenance.
Ci-joint votre fichier.
Cordialement. |
|
|
Re: Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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 |
|
|
Re: Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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 |
|
|
Re: Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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. |
|
|
Re: Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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 :) |
|
|
Re: Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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 ? |
|
|
Re: Incrémenter des lignes à partir d'une cellule | ||
---|---|---|
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. |
|
|