A voir également:
- Excel recopie automatique plage de cellules
- Liste déroulante excel - Guide
- Excel additionner des cellules - Guide
- Verrouiller cellules excel - Guide
- Formule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
7 réponses
Bien le bonjour a vous deux,
Connais tu le nombre total de ligne de ta premiere feuille?
En gros tu vaut recopier X lignes quand ta cellule vaut X ?
explique un peu plus
STP
BB
Connais tu le nombre total de ligne de ta premiere feuille?
En gros tu vaut recopier X lignes quand ta cellule vaut X ?
explique un peu plus
STP
BB
Aaaaaaahhhhh!!! OK!
Je vois ce que tu veux!
T'as pas trop de lignes quand meme??
Ca te derange pas d'avoir un bouton est d'etre obliger d'appuier dessus pour realiser tes modifications?
Par ce que sinon on passera par VBA, j'ai le temps la de faire le programme, mais voici l'idee, tu me diras si ca te plait:
Une fois que tout est rentrer(chiffre et nom)
On appuie sur un bouton qui va parcourir ta feuille Excel
Si on rencontre un 1 on copie sur l'autre feuille
...
Je suis vraiment en retard, il faut que j'y aille
Dls(je suis en chine et la il est tard)je coninurais demain matin quand tu dormiras!!!!!!
dsl
Bruno
Je vois ce que tu veux!
T'as pas trop de lignes quand meme??
Ca te derange pas d'avoir un bouton est d'etre obliger d'appuier dessus pour realiser tes modifications?
Par ce que sinon on passera par VBA, j'ai le temps la de faire le programme, mais voici l'idee, tu me diras si ca te plait:
Une fois que tout est rentrer(chiffre et nom)
On appuie sur un bouton qui va parcourir ta feuille Excel
Si on rencontre un 1 on copie sur l'autre feuille
...
Je suis vraiment en retard, il faut que j'y aille
Dls(je suis en chine et la il est tard)je coninurais demain matin quand tu dormiras!!!!!!
dsl
Bruno
[HS] mot de passe clio.... vous êtes sponso pas REnault pour faire de la pub comme çà??? lol
Sinon euh...
A tester...
Enjoy :)
Sinon euh...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
LaDerniere = Application.Workbooks.Worksheets("Feuille1").Range("C65536").End(xlUp).Row
k = 2
For i = 2 To LaDernière
If Application.Workbooks.Worksheets("Feuille1").Range("C" & i & "").value = 1 Then
Application.Workbooks.Worksheets("Feuille1").Range("A" & i & ":C" & i & "").Copy
Application.Workbooks.Worksheets("Feuille2").Range("A" & k & "").Select
ActiveSheet.Paste
k=k+1
End If
Next i
End Sub()
A tester...
Enjoy :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'en profite pour demander un truc.
Moi c'est à peu prés la même chose mais avec des cellules fixes B6,C6,D6,E6 et G6 qui viennent etre recopier dans la feuille Sauvegarde.
J'appuie sur le bouton et la recopie ce fait.
Mais a chaque fois que j'utiliserais ce bouton il me feras sauter une ligne sur ma feuille sauvegarder pour garder les précedentes intactes.
Donc avec saut de ligne dans une autre feuille pour des cellules fixes d'une feuille appeler Cible....
Un ti peu d'aide s'il vous plait serais la bienvenue je cale complétement
Moi c'est à peu prés la même chose mais avec des cellules fixes B6,C6,D6,E6 et G6 qui viennent etre recopier dans la feuille Sauvegarde.
J'appuie sur le bouton et la recopie ce fait.
Mais a chaque fois que j'utiliserais ce bouton il me feras sauter une ligne sur ma feuille sauvegarder pour garder les précedentes intactes.
Donc avec saut de ligne dans une autre feuille pour des cellules fixes d'une feuille appeler Cible....
Un ti peu d'aide s'il vous plait serais la bienvenue je cale complétement
En gros c'est .
Feuille : !Cible
Cellules : B6,C6,D6,E6 et G6
On appuie sur le bouton
elles sont recopiés dans la feuille Sauvegarde, on va dire à partir de la cellule B4.
On appuie sur le bouton
Elles sont recopiés en dessous des précedentes (Donc C4).
et ainsi de suite.
En faite les cellules B6,C6,D6,E6 et G6 auront d'autre infos.
J'ai préferé develloper :)
Feuille : !Cible
Cellules : B6,C6,D6,E6 et G6
On appuie sur le bouton
elles sont recopiés dans la feuille Sauvegarde, on va dire à partir de la cellule B4.
On appuie sur le bouton
Elles sont recopiés en dessous des précedentes (Donc C4).
et ainsi de suite.
En faite les cellules B6,C6,D6,E6 et G6 auront d'autre infos.
J'ai préferé develloper :)
3 août 2005 à 12:37
effectivement le nombre de ligne à recopier est indéterminé et peut varier. ce que je souhaite obtenir c'est recopier automatiquement (dès que l'on inscrit 1) et à la suite, dans une seconde feuille tout ou partie d'une ligne qui aurait (par exemple) pour valeur 1 dans une cellule.
par ex:
feuille1
Prenom Nom Condition
Jean Dupont 1
Albert Durant 0
Philippe Jacques 1
...
>>résultat
feuille2
Prenom Nom Condition
Jean Dupont 1
Philippe Jacques 1
...
j'espère avoir fournie toutes les infos ;)
Merci
Ps: est-il possible de réaliser cela en incluant la réversibilité ? à savoir que si l'on remplace 1 par 0 en feuille1 la ligne recopiée en feuille2 disparait ? (je cherche un peu les complications, je sais!)