XL 2016 Code de transfert

Seddiki_adz

XLDnaute Impliqué
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
 

Pièces jointes

  • BDD.xlsm
    27.2 KB · Affichages: 0
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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"
1652338986795.png

Donc dans votre cas c'est :
VB:
If ActiveSheet.Name <> "DBD" Then Exit Sub
Au moins si cette ligne passe, vous pourrez débugger le reste. :)
 

Phil69970

XLDnaute Barbatruc
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

1652350903437.png


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


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

XLDnaute Impliqué
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
 

Statistiques des forums

Discussions
298 786
Messages
1 971 769
Membres
203 468
dernier inscrit
roger loupe