Copier, coller, incrémenter
Résolu
Bonjour,
Voici mon problème:
Je souhaite copier plusieurs cellules dans un tableau(feuille1) et les coller dans un autre tableau(feuille2). Il faudrait également que ceci soit commandé par un bouton et à chaque appuis, le collage se fasse dans la ligne du dessous. J'ai pour l'instant ceci:
Const F1 = "Index fraise"
Const F2 = "Ref outils"
Private Sub Bouton()
Dim lifin As Long, v
v = Sheets(F1).Range("K7").Value
lifin = Sheets(F2).Range("A" & Rows.Count).End(xlUp).Row
If Sheets(F2).Range("K7") <> "" Then lifin = lifin + 1
Sheets(F2).Range("A" & lifin).Value = v
End Sub
La copie marche mais pas l'incrémentation(il recopie tjr sur ma premiere ligne).
je ne sais pas non plus faire un programme pour qu'il me prenne toute mes cellules, pas seulement "K7"
Merci
Voici mon problème:
Je souhaite copier plusieurs cellules dans un tableau(feuille1) et les coller dans un autre tableau(feuille2). Il faudrait également que ceci soit commandé par un bouton et à chaque appuis, le collage se fasse dans la ligne du dessous. J'ai pour l'instant ceci:
Const F1 = "Index fraise"
Const F2 = "Ref outils"
Private Sub Bouton()
Dim lifin As Long, v
v = Sheets(F1).Range("K7").Value
lifin = Sheets(F2).Range("A" & Rows.Count).End(xlUp).Row
If Sheets(F2).Range("K7") <> "" Then lifin = lifin + 1
Sheets(F2).Range("A" & lifin).Value = v
End Sub
La copie marche mais pas l'incrémentation(il recopie tjr sur ma premiere ligne).
je ne sais pas non plus faire un programme pour qu'il me prenne toute mes cellules, pas seulement "K7"
Merci
6 réponses
-
Merci pour ce programme est désolé pour le temps de réponse. tout est parfait.
Vraiment un gros merci -
ContributeurRe,
Option Explicit
Const F1 = "Index fraise"
Const F2 = "Ref outils"
Sub Bouton()
Dim Creation(), Ligvide As Integer
With Sheets(F1)
If .Range("K7") = "" Then GoTo erreurvide
Creation = .Range("K7:S7").Value
End With
With Sheets(F2)
Ligvide = .Columns("A").Find("", .Range("A" & .cells.rows.count)).Row
.Range("A" & Ligvide).Resize(1, 10) = Creation
MsgBox " les données de l'outil sont bien indiquées dans la feuille '""ref outils"""
End With
Exit Sub
erreurvide:
MsgBox "Matière outil non renseignée !!!", vbCritical
End Sub
Michel -
http://cjoint.com/?DDekk7y33fk
Il est plus a jour! -
http://cjoint.com/?DDejuJ4sKvo
Merci pour ton temps
Alors ma banque de donnés est loin d'être fini. Mais mon problème se passe en feuille 1 dans la rubrique "Création Fraise", le concepts est de rentré un outils(fraise) avec toute ses caractéristique et en appuyant sur le bouton,l'ajouter sur ma liste ref outils. -
Trop fort c'était ça le problème, je remplacé "K7" par ("A" & Rows.Count).End(xlUp).Row et c'est nickel.
Par contre je n'arrive pas a sélectionner plusieurs cellules(pas toute la feuille) juste "K7,L7,M7,N7,O7,P7,Q7,R7,S7" qui irait respectivement dans la colonne A,B,C,D,E,... de la feuille 2.
en tout cas merci pour ton aide -
ContributeurBonjour,
tel quel ton code semble bon mais est tu sûr de K7 en feuille 2
If Sheets(F2).Range("K7") <> "" .... ???
e ne sais pas non plus faire un programme pour qu'il me prenne toute mes cellules, pas seulement "K7"
Toutes les cellules de F1 ????
Michel
