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

comment aller a la ligne suivante

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eseuk
  • 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
E

eseuk

Guest
bonjour, mon problème est le suivant j'aimerai pourvoir aller a la ligne suivante après chaque clic sur mon bouton ( en cliquant dessus on exécute un code )

voila ce que j'ai comme code
Public Sub CommandButton3_Click()

'Dim i As Integer
'i = ActiveCell.End(xlUp).Row



Workbooks("destination.xlsx").Sheets("Feuil1").Range("A1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E4")

Workbooks("destination.xlsx").Sheets("Feuil1").Range("B1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("O1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E8")
End Sub

j'aimerai pouvoir écrire a la ligne suivant après chaque clic sur le bouton je vous remercie d'avance 😀
 
Trier par date Trier par votes
Re : comment aller a la ligne suivante

Bonjour Eseuk 🙂,
Pas sûr d'avoir compris 🙄...
A tester
Code: 
Public Sub CommandButton3_Click()
Dim I As Integer
I = ActiveCell.Row
With Workbooks("source.xlsm").Sheets("Blad1")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("A" & I) = .Range("E4")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("B" & I) = .Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C" & I) = .Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("O" & I) = .Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With
ActiveCell.Offset(1, 0).Select
End Sub
Bonne journée 😎
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

bonjour, JNP je te remercie tu ma bien aidé en plus ton code est plus simplifier que le mien
c'est exactement ce que je voulais faire
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

Public Sub CommandButton3_Click()
Dim Wb As Workbook
Set Wb = Workbooks.Open("C:\destination")
Dim I As Integer
I = ActiveCell.Row
With Workbooks("source.xlsm").Sheets("Blad1")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("A" & I) = .Range("E4")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("B" & I) = .Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C" & I) = .Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("D" & I) = .Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With

Wb.Close True
Application.ScreenUpdating = True
ActiveCell.Offset(1, 0).Select



End Sub

j'aimerai pouvoir ouvrir le classeur destination avec le clic sur le bouton stocké les données sauvegarder et le fermer automatiquement une idée JNP ?
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

Re 🙂,
eseuk à dit:
j'aimerai pouvoir ouvrir le classeur destination avec le clic sur le bouton stocké les données sauvegarder et le fermer automatiquement une idée JNP ?
Cliquez pour agrandir...
Plusieurs 🙄...
D'abord utiliser le # qui se trouve au dessus en mode avancé pour mettre ton code proprement dans tes posts 😡...
Ensuite utiliser le chemin complet si tu veux ouvrir un fichier 😛
Code: 
Public Sub CommandButton3_Click()
Dim Wb As Workbook
Set Wb = Workbooks.Open("C:\destination\source.xlsm")
Dim I As Integer
I = ActiveCell.Row
With Wb.Sheets("Blad1")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("A" & I) = .Range("E4")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("B" & I) = .Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C" & I) = .Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("D" & I) = .Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With
Wb.Close True
ActiveCell.Offset(1, 0).Select
End Sub
Sinon, si tu veux choisir ton fichier, étudier la méthode
Code: 
Application.Dialogs (xlDialogOpen)
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

pour le chemin mon classer destination est a la racine C dans il s'ouvre les donner sont collées mais il le se referme pas c'est la le soucis
malgré le Wb.Close True
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

Re 🙂,
Et ta macro, elle est dans quel classeur ?
Parce que pour moi, tu étais dans Destination et tu ouvrais Source...
A + 😎
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

ah non je suis dans source j'ouvre destination je colle les cellules copiées depuis source et je referme destination
du moins c'est ce que j'essaye de faire
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

Re 🙂,
A tester
Code: 
Public Sub CommandButton3_Click()
Dim Wb As Workbook
Set Wb = Workbooks.Open("C:\destination.xlsx")
Dim I As Integer
I = ActiveCell.Row
With ThisWorkbook.Sheets("Blad1")
Wb.Sheets("Feuil1").Range("A" & I) = .Range("E4")
Wb.Sheets("Feuil1").Range("B" & I) = .Range("E5")
Wb.Sheets("Feuil1").Range("C" & I) = .Range("G5")
Wb.Sheets("Feuil1").Range("D" & I) = .Range("E7")
Wb.Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With
Wb.Save
Wb.Close
ActiveCell.Offset(1, 0).Select
End Sub
A + 😎
 
Vote positif 0 Vote négatif
Re : comment aller a la ligne suivante

j'ai résolue le probleme en fait il venait du fait que mon fichier etais dans la racine C donc seven qui bloquait et donc empêchait la modification et encore merci JNP
 
Dernière modification par un modérateur:
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

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
1 K
jabenj
J
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
M
  • Question Question
Microsoft 365 Evolution macro - VBA - Copier/coller en fonction d'une ligne
Réponses
6
Affichages
2 K
melinavy
M
D
  • Question Question
XL 2010 La méthode Delete de la classe Range a échoué
Réponses
3
Affichages
2 K
Dranreb
L
  • Question Question
Microsoft 365 La méthode Delete de la classe range a échoué (Déboguer VBA)
Réponses
6
Affichages
2 K
lukes67
L
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
D
  • Question Question
XL 2010 Macro pour copier/coller sur la ligne suivante
Réponses
5
Affichages
4 K
soan
S
S
  • Résolu(e)
XL 2016 Si doublon dans une colonne copier des valeurs sur la même ligne que la cellule recherchée
Réponses
9
Affichages
3 K
Surferdargent
S
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
S
  • Résolu(e)
XL 2019 code vba changement de couleur si modification de la cellule
Réponses
7
Affichages
2 K
syriak
S
  • Question Question
Microsoft 365 Soucis de format date
Réponses
2
Affichages
1 K
pompaero
F
  • Résolu(e)
XL 2013 Recherche et Copie de lignes d'un classeur vers un autre
Réponses
10
Affichages
1 K
fgdfgg
F
T
  • Résolu(e)
XL 2010 VBA boucle pour copier/coller cellules avec condition
Réponses
4
Affichages
6 K
ThomasGLT
T
C
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
C
L
  • Question Question
Collage a la suite
Réponses
8
Affichages
1 K
Lucie61
L
K
  • Question Question
XL 2016 IMPORTER VALEUR D'UN TABLEAU DANS UN USEFORM
Réponses
5
Affichages
1 K
kontractor08
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…