XL 2016 Code de transfert

[Seddiki_adz]

bonjour
j'ai besoin d'aide pour me corriger
j'ai un code de transfert mais ne fonctionne pas
Merci
le code

Sub CpyData()
If ActiveSheet.Name <> "Feuil1" Then Exit Sub
Dim cel As Range, nlm&, cnd1$, cnd2$, n1&, n2&, i&, j&: nlm = Rows.Count
With Worksheets("Feuil2")
n1 = Cells(nlm, 2).End(3).Row: If n1 = 10 Then Exit Sub
Do
cnd1 = InputBox("Lettre de la condition :", "Condition")
If cnd1 = "" Then Exit Sub 'condition non indiquée => quitter la sub
Loop Until cnd1 <> ""
n2 = .Cells(nlm, 2).End(3).Row: j = 12: Application.ScreenUpdating = 0
If n2 > 11 Then .Range("B12:H" & n2).ClearContents
For i = 12 To n1
Set cel = Cells(i, 2): cnd2 = cel.Offset(, 9)
If cnd2 = cnd1 Then
With .Cells(j, 2)
.Value = cel 'B : NOM
.Offset(, 1) = cel.Offset(, 1) 'C : PRENOM
.Offset(, 2) = cel.Offset(, 3) 'D : PROFESSION
.Offset(, 3) = cel.Offset(, 2) 'E : ETABLISSEMENT
.Offset(, 4) = cel.Offset(, 6) 'F : REGION
.Offset(, 5) = cel.Offset(, 8) 'G : OBS
j = j + 1
End With
End If
Next i
.Select
End With
End Sub

 

[sylvanu]

Bonjour Seddiki_adz,
Pas tout compris à votre macro, mais au moins une erreur : "Feuil1" n'existe pas. Avec des guillemets, c'est le nom de la feuille et pas son index.
Soit vous faites "DBD" ou "Feuil2"

Donc dans votre cas c'est :

If ActiveSheet.Name <> "DBD" Then Exit Sub

Au moins si cette ligne passe, vous pourrez débugger le reste. 🙂

 

[Seddiki_adz]

bonjour
je veut chercher le tableau du feuil2 suivant le nom colonne G

 

[Phil69970]

Bonjour @Seddiki_adz

Je te propose ce fichier de ce que j'ai compris

Remarque :
Il n'y a aucune colonne qui s'appelle SA dans la feuille DBD

*Merci de ton retour

@Phil69970

 

[Seddiki_adz]

Bonjour
colonne o

 

[Phil69970]

Re

Il suffit d'enlever l'apostrophe au debut de ce code

Je pense que tu peux le faire !!! 🤔

*Merci de ton retour

@Phil69970

 

[Seddiki_adz]

Re

Il suffit d'enlever l'apostrophe au debut de ce code

Regarde la pièce jointe 1139380


Je pense que tu peux le faire !!! 🤔

*Merci de ton retour

@Phil69970

Bonjour
dans la colonne A en obtient numérotation
je veut que le code il transfert seulement CEM1

 

[Phil69970]

Re

Désolé mais j'ai fait comme ce qui est demandé dans le fichier
Tu as N dans la colonne A c'est pas pour avoir le "Nom" de la colonne E

Et il suffit de mettre la valeur que l'on veut en G2 pour avoir l'extraction correspondant au nom

A l'avenir il faut être plus précis dans les demandes Colombo c'est à la TV pas sur XLD

De plus depuis 3 ans sur XLD je ne vois aucune progression dans excel tu prends bêtement les codes que l'on te donnent sans faire aucun effort de compréhension et c'est bien dommage.

@Phil69970

 

[Seddiki_adz]

Re

Désolé mais j'ai fait comme ce qui est demandé dans le fichier
Tu as N dans la colonne A c'est pas pour avoir le "Nom" de la colonne E
Regarde la pièce jointe 1139381

Et il suffit de mettre la valeur que l'on veut en G2 pour avoir l'extraction correspondant au nom
Regarde la pièce jointe 1139383

A l'avenir il faut être plus précis dans les demandes Colombo c'est à la TV pas sur XLD

De plus depuis 3 ans sur XLD je ne vois aucune progression dans excel tu prends bêtement les codes que l'on te donnent sans faire aucun effort de compréhension et c'est bien dommage.

@Phil69970

Merci