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

Problème pour passer à la ligne suivante

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

reginald

Guest
Bonjour,

J'ai creer un petit programme pour lire les données des cartes d'identités. J'aimerais qu'après avoir lu la carte et mis les données en colonne sur la feuille 1, recopier les données en ligne sur la feuille 2. Je n'arrive pas à mettre les données lignes par lignes sur la feuille 2. Je reste bloqué sur la première. Pourriez-vous m'aider afin que je puisse continuer. Ci-joint mon petit programme. Merci.
 

Pièces jointes

Trier par date Trier par votes
Re : Problème pour passer à la ligne suivante

Bonjour le fil, Reginald

Code: 
Sub Copier()
 
    With Application
        If .WorksheetFunction.CountIf(Blad2.Range("G:G"), Blad1.Range("B7")) Then
            MsgBox "La carte est déjà entrée"
        Else
            .ScreenUpdating = 0
            Blad1.Range("B1:B10").Copy
            Blad2.Range("A65536").End(xlUp).Offset(1).PasteSpecial Transpose:=True
            .CutCopyMode = 0
        End If
    End With
 
End Sub
A copier dans le code de ton bouton Coller.

A plus

PS : Pense à effacer les cellules [A2687:A2691] avant de lancer la Macro. 🙄
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour à tous

Reginald
Je ne penses pas que tu sois l'auteur de cette macro 🙄
Me-trompe-je ?
Code: 
Sub TestEID()
'...
End Sub
Tu peux citer tes sources, ce sera apprécié ...
EDITION1: bonjour soenda
EDITION2
Voici (si je ne me trompe) la source de cette macro
Et voici le fichier original réalisé par Charlizenne.

Pourquoi ceci a disparu de ton fichier, Reginald ?
Code: 
[COLOR="seagreen"]'------------------------------------
' Procedure : TestEID
' Author    : Charlizenne ... and the website with e-id info
' Date      : 19/06/2010
' Purpose   : read info from passport-chip with cardreader
'             the e-id software needs to be installed because you need a reference
'             to beidlibaxctrl 1.1 type
'----------------------------------
'[/COLOR]
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème pour passer à la ligne suivante

Bonsoir Soenda,

Merci d'avoir répondu aussi vite. J'ai placé la macro au debut de la macro(3), mais quand je veux copier vers la feuille2, je reste toujours sur la même ligne.
 
Vote positif 0 Vote négatif
Re : Re: Problème pour passer à la ligne suivante

bonsoir Staple1600,

Non, je n'ai pas fait cette macro moi-même, et tu as bien raison de citer l'auteur. J'ai voulu alléger mon fichier afin de pouvoir l'envoyer. Je ne voulais en aucun cas me dire l'auteur de cette macro. Merci et bonne soirée.
 
Vote positif 0 Vote négatif
Re : Problème pour passer à la ligne suivante

Bonjour Soenda,

Merci ça fonctionne nickel, c'est exactement ce que je voulais. Mon erreur, c'est que je rajoutait ta macro en plus et pas à la place.
Bon dimanche.
 
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

F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
216
finarobert
F
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
335
Marie.
M
  • Résolu(e)
XL 2019 Recopier mes feuilles dans mon USF
2 3
Réponses
39
Affichages
1 K
Phil Du59
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
369
Cousinhub
A
  • Question Question
XL 2019 Demande d'aide pour une formule
Réponses
6
Affichages
274
Abdessadeq
A
A
  • Résolu(e)
Microsoft 365 Compter avec la condition que la valeur suivante ne soit pas 3 - NB.SI.ENS ?
Réponses
8
Affichages
314
sylvanu
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
318
job75
F
  • Question Question
XL pour MAC utilisation de Subtotal en VBA-Excel. - détection de la ligne des titres
Réponses
3
Affichages
227
sylvanu
J
  • Résolu(e)
Microsoft 365 lettre suivante
Réponses
5
Affichages
665
sylvanu
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
426
DAVID-44-
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
662
Jaykerz
J
J
  • Question Question
XL 2019 Problème d'affichage sur cellule non-vide pour Excel
Réponses
6
Affichages
354
JFC256
J
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
728
Elnono51
E
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
248
SPARKLETOF
S
  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
424
ExcelDow
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
408
ChTi160
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
272
AD74
A
Y
  • Résolu(e)
XL 2013 Retour à la ligne
Réponses
2
Affichages
256
Yvan1
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…