Alternative à control h vba Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
S
Suetake77
Membre habitué
Membre habitué
Messages : 64
Appréciations reçues : 2
Inscrit le : 31 janvier 2019
Version d'Excel : 2016

Message par Suetake77 » 8 avril 2019, 20:33

Bonsoir,

Lors d'une procédure où je dois assembler un numéro INSEE( nombre au format sécurité sociale) ) à un nombre à deux chiffres (sous format texte qui doit se positionner à la droite du dit code INSEE) appelé NUDOS
J'ai donc : le numéro de sécurité sociale 2 69 05 49 588 157 80 et le nudos 10
Je veux obtenir à la fin 26905495881578010
Ce que j'ai réussi à faire pour le moment 2 69 05 49 588 157 8010. Ensuite, lorsque je le passe en format texte, pour contrer la limite de taille et le code replace pour supprimer les espaces j’obtiens 26905495881578000
il m'a semblé avoir compris qu'Excel ne peut pas lire les nombres de plus de 15 chiffres, c'est pour cela que j'ai la cellule en format texte pourtant après avoir effectué le code replace, ce dernier me remplace mon nudos par des 00.

Auriez vous une solution?
EXTRACTION.xlsx
(8.32 Kio) Téléchargé 3 fois
Copy of tableauvac2019 v3.xlsm
(21.75 Kio) Téléchargé 5 fois
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'880
Appréciations reçues : 166
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 8 avril 2019, 22:56

Slt Suetake,

à tester (moi je l'ai testé avec tes deux fichiers et ca fonctionne!)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    derligne = Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Cells(Rows.Count, 1).End(xlUp).Row + 1
 
    Range("B" & Target.Row).Copy Destination:=Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Range("A" & derligne)
    Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Range("A" & derligne).NumberFormat = "@"
    Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Range("A" & derligne) = Range("B" & Target.Row).Value & Range("J" & Target.Row).Value
    Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Range("A" & derligne).NumberFormat = "@"
    Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Range("A" & derligne).Replace what:=" ", replacement:=""
    'NOM PRENOM
    Range("C" & Target.Row).Copy Destination:=Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Range("B" & derligne)
    'activer la feuille d'extraction
    Workbooks("EXTRACTION.xlsx").Worksheets("FICHEX").Activate
    End If
End Sub
1 membre du forum aime ce message.
À partir d'hier, j'ai décidé de ne plus expliquer les solutions proposées et de ne plus répondre aux MP!
S
Suetake77
Membre habitué
Membre habitué
Messages : 64
Appréciations reçues : 2
Inscrit le : 31 janvier 2019
Version d'Excel : 2016

Message par Suetake77 » 9 avril 2019, 19:14

Autant pour moi ca fonctionne!
1 membre du forum aime ce message.
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'880
Appréciations reçues : 166
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 9 avril 2019, 21:23

Re,

voici une meilleure version :)
Copy of tableauvac2019 v4.xlsm
(21.04 Kio) Téléchargé 1 fois
1 membre du forum aime ce message.
À partir d'hier, j'ai décidé de ne plus expliquer les solutions proposées et de ne plus répondre aux MP!
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message