Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche première ligne libre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Sloubi76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Sloubi76

Guest
Bonsoir,

Je butte sur la commande VBA me permettant de copier les cellule C3, C5, C7 de la feuil1 sur la première ligne libre au bas de la base récapitulative située en feuil2 colonnes A, B, C.(C3 en A, C5 en B et C7 en C).

Merci d'avance de vos propositions
 
Trier par date Trier par votes
Re : Recherche première ligne libre

bien le bonsoir à tous
'>>>>>>>> lig/col occupées dans la feuille entière avec ActiveSheet. OU Sheets(No).
'no de feuille ou son nom !?
With Sheets(No).UsedRange: NoDeLaDernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With
With Sheets(No).UsedRange: NoDeLaDernCol = .Cells(.Rows.Count, .Columns.Count).Column: End With

Roland
 
Vote positif 0 Vote négatif
Re : Recherche première ligne libre

Bonsoir Roland,

Merci de ton aide mais le code
'Copie le nom du client
Sheets("saisie").Select
Range("C3").Select
Selection.Copy
'Colle le nom de client dans la base de données récapitulative
Sheets("Commande").Select
With Sheets("Commande").UsedRange: NoDeLaDernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With
ActiveSheet.Paste

End Sub
Me positionne la copie à des endroits différents au fur et à mesure de l'utilisation.
Serait ce la formule qui va de travers
@ +
 
Vote positif 0 Vote négatif
Re : Recherche première ligne libre

re:
'Copie le nom du client
Sheets("saisie").Select
Range("C3").Select
Selection.Copy
'Colle le nom de client dans la base de données récapitulative
Sheets("Commande").Select
'>>>>>>>> ceci te donne le no de ligne et de colonne simplement !
'>>>>>>>> pour copier à cet endroit tu doit te servir de ces nos !?
With Sheets("Commande").UsedRange: NoDeLaDernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With
'>>>>>>>> exemple CI-DESSOUS (pour le ,1 de la colonne à toi te voir si c'est bien la 1'
Sheets("Commande").Cells(NoDeLaDernLig + 1, 1).Select
ActiveSheet.Paste

End Sub

Roland
 
Vote positif 0 Vote négatif
Re : Recherche première ligne libre

Bonsoir Sloubi76, Roland_M

une autre solution :

Code: 
Sub copie()
Dim a_copier As Range, a_ecrire As Range
Set a_copier = Feuil1.[C3]
With Feuil2: Set a_ecrire = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0): End With

a_ecrire.Value = a_copier.Value
Set a_copier = a_copier.Offset(2, 0): Set a_ecrire = a_ecrire.Offset(0, 1)
a_ecrire.Value = a_copier.Value
Set a_copier = a_copier.Offset(2, 0): Set a_ecrire = a_ecrire.Offset(0, 1)
a_ecrire.Value = a_copier.Value
End Sub


A+
 
Vote positif 0 Vote négatif
Re : Recherche première ligne libre

Bonsoir,

Un exemple pour copier les trois cellules demandées:

Code: 
Sub CCopy()
Dim Tablo
With Sheets("saisie")
   Tablo = Array(.Range("C3"), .Range("C5"), .Range("C7"))
End With
Sheets("Commande").Range("A65536").End(xlUp).Offset(1, 0).Resize(, UBound(Tablo) + 1) = Tablo
End Sub

La variable Tablo contient les données des trois cellules.
Sheets("Commande").Range("A65536").End(xlUp).Offset(1, 0) te permet d'aller sur la première ligne vide de la colonne A.
.Resize(, UBound(Tablo) + 1) = Tablo permet de mettre les données du tableau dans les trois colonnes A,B et C (Resize te permet de créer un décallage en partant d'une cellule, Resize(Nbr de ligne,Nbr de colonne).

A+
 
Vote positif 0 Vote négatif
Re : Recherche première ligne libre

Bonsoir à vous,

Merci toutes vos propositions sont plus intéressantes les unes que les autres, je n'ai que l'embarras du choix.
Mon problème est enfin résolu.
Je ne manquerai pas de revenir vers vous car j'ai un module à venir qui n'est pas simple,
petit avant gout pour les gourmets :
"la ref doit être comparée avec les ref qui se trouvent sur la feuille 2 colonne STOCK REEL
- s'il ne trouve pas la ref il ne fait rien
- s'il trouve il doit enlever la quantité correspondante
de ce fait on doit ensuite compare le STOCK REEL avec MINI
- si stock réel est sup au stock mini ok on fait rien
- si stock réel est inf au stock mini alors il faut marquer dans la colonne ATTENTE DE REAPRO et face à la ref concernée la quantité de pièce à recevoir.
Si l'un de vous se sent d'attaque je suis à sa disposition !!
@ + et merci encore
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
183
deudecos
O
  • Question Question
XL 2021 copie ligne en fonction d'une cellule
Réponses
3
Affichages
212
wDog66
W
J
  • Question Question
Autres Extraire chaque mot d'une phrase dans plusieurs cellule en colonne même ligne
2
Réponses
17
Affichages
577
jmst1
J
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
682
Jaykerz
J
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
  • Question Question
Microsoft 365 ajouter une formule dans une ligne de code
Réponses
5
Affichages
301
Dranreb
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
376
p'tit vieux
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
560
akm
A
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
974
TooFatBoy
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
556
Phil69970
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
488
Anthony_51
A
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
  • Question Question
Microsoft 365 Commande VBA pour supprimer plusieurs lignes d'un tableau structuré
Réponses
7
Affichages
467
mapomme
J
  • Résolu(e)
Microsoft 365 lettre suivante
Réponses
5
Affichages
666
sylvanu
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
314
evindi
E
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
878
piga25
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
416
Thomas75
T
  • Résolu(e)
Microsoft 365 👉 Listes déroulantes dépendantes d'une seule colonne
Réponses
1
Affichages
338
3xceln4ute
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
376
StéphaneDeLà
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…