Copier, coller, incrémenter
Résolu/Fermé
A voir également:
- Copier, coller, incrémenter
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Symbole coeur copier-coller ✓ - Forum Réseaux sociaux
- Super copier - Télécharger - Gestion de fichiers
- Dessin sms copier coller - Forum Jeux vidéo
6 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 4/04/2014 à 06:58
Modifié par michel_m le 4/04/2014 à 06:58
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
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 4/04/2014 à 11:21
Modifié par michel_m le 4/04/2014 à 11:21
Re,
Michel
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
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
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 4/04/2014 à 08:50
Modifié par michel_m le 4/04/2014 à 08:50
pour essayer d'^tre concret
je regarde tout à l'heure: des trucs à faire :o)
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)
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
