Problème pour passer à la ligne suivante

reginald · 11 Décembre 2010

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.

soenda · 11 Décembre 2010

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.

Staple1600 · 11 Décembre 2010

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]

reginald · 11 Décembre 2010

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.

reginald · 11 Décembre 2010

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.

Staple1600 · 11 Décembre 2010

Bonsoir Reginald

Mon message était motivé par la lecture de ceci dans ton premier message

J'ai creer un petit programme pour lire les données des cartes d'identités

Je l'ai donc interprété littéralement ...

Mais comme tu le dis toi-même

et tu as bien raison de citer l'auteur.

Donc tout va bien dans le meilleur des mondes

soenda · 11 Décembre 2010

Re : Problème pour passer à la ligne suivante

reginald à dit:
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.

Re,

Voir le fichier joint

A plus

reginald · 12 Décembre 2010

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.

Problème pour passer à la ligne suivante

reginald

XLDnaute Nouveau

Pièces jointes

soenda

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

reginald

XLDnaute Nouveau

reginald

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

soenda

XLDnaute Accro

Pièces jointes

reginald

XLDnaute Nouveau

Discussions similaires