Excel recopie automatique plage de cellules

Fermé
damdes - 27 juil. 2005 à 12:29
 mdnet14 - 5 juil. 2010 à 09:32
Bonjour,

Voici donc mon problème :

Je souhaite, en fonction d'une valeur affectée à une cellule (si
valeur=1), trouver le moyen de recopier une plage de cellules connexes
(en ligne) dans une autre feuille d'un même classeur à emplacement
déterminé.

Merci d'avance pour votre aide !

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
0
bonjour!

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!)
0
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
0
salut c sympa ;)

alors idéalement c vrai que je préférerai que le simple fait d'inscrire "1" dans la feuille1 puisse recopier automatiquement la ligne en question

cependant, si la seule solution consiste à paser par un bouton alors ca me conviendra très bien ! :)

merci d'avance
0
[HS] mot de passe clio.... vous êtes sponso pas REnault pour faire de la pub comme çà??? lol

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 :)
0
Un merci suffirait...
0
je teste et je te dis !

merci !!!!
0

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
0
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 :)
0
je sais pas faire non plus alors fais comme moi cherche et bouquine
-2