• Initiateur de la discussion Initiateur de la discussion djo007
  • 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 !

D

djo007

Guest
bonjour
voila j'ai un fichier excel qui contient 5 feuilles
j'aimerai crée une fonction qui me permet de tranfere de la premiere feuil les données vers les autres
mais le problemes et que j'ai des tableaux dans les autres feuilles alors l'incrementation des donnees ecrase toujours les donnees precedentes.
remarque les donnée de la premiere feuil son eparpier a l'interieur de la feuil.
merci d'avance de votre aide
 
Re : de l'aide plz

Salut,

Je vois que tu est nouveau, donc tout d'abord bienvenue.
Ensuite, un petit conseil, quand tu crés un fil, essais de mettre un titre plus parlant qui permetta de faciliter des recherches postérieures.

Sinon pour ton p'ti soucis, essais de nous mettre un exemple en pièce jointe de ce que tu as et du résultats que tu souhaites afin que l'on puisse adapter directement un bout de code.

@+
 
Re : de l'aide plz

merci
voila comme l'emeple le montre j'ai deux feuilles une depuis laquel j'introduit les données l'autre c'est ma base de donnée
ce que je veux c'est lorsque je coche le checkbox j'aimerai verifier si le nom/prénom de la personne a été introduit au paravant où pas et me donne son code.
s'il existe et me redonner son code dans la cellule résultat.
 

Pièces jointes

Re : de l'aide plz

re,

Tu vois qu'avec un fichier, c'est plus simple d'avoir de l'aide, voici un code qui fonctionne (enfin, si j'ai bien compris ta demande) :
Code:
Private Sub CheckBox1_Click()
Dim i%
If ActiveSheet.OLEObjects("CheckBox1").Object = True Then
    With Sheets("BD")
        For i = 2 To .Range("B65536").End(xlUp).Row
            If LCase(Cells(2, 2).Value) = LCase(.Cells(i, 2).Value) Then
                Cells(1, 2).Value = .Cells(i, 1).Value
                Exit Sub
            End If
        Next i
    End With
End If
End Sub

@+
 
- 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éponses
6
Affichages
368
Réponses
17
Affichages
1 K
Réponses
5
Affichages
694
Réponses
4
Affichages
922
Retour