Copier, coller, incrémenter

Résolu
milan -  
 milan -
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
A voir également:

6 réponses

Réponse 1 / 6
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour,

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
1
Réponse 2 / 6
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Re, 

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
1
Réponse 3 / 6
milan
 
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
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
pour essayer d'^tre concret 

mettre le classeur sans données confidentielles en pièce jointe sur
http://cjoint.com/ 
puis copier l'adresse du lien et la coller dans le message de réponse

je regarde tout à l'heure: des trucs à faire :o)
0
Réponse 4 / 6
milan
 
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
milan
 
http://cjoint.com/?DDekk7y33fk
Il est plus a jour!
0
Réponse 6 / 6
milan
 
Merci pour ce programme est désolé pour le temps de réponse. tout est parfait.
Vraiment un gros merci
0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses
Arobase (@)
NöNö$ -
NöNö$ -

2 réponses
comment faire une arobase
GLORIA -
baladur13 -

1 réponse
Arobase
Zezette -
MPMP10 -

1 réponse
dessin au clavier cannabis
val2t1 -
Mamaaaa18 -

10 réponses