Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pb de convertion de données

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

dodoremix

Guest
Pb comparaison de type de données dans cellules

Bonjour,

Lors de mon extraction de donnée d'une base il sort un certain nombre de donnée (dans mon fichier joint il n'y a que deux colonnes mais c 'est la premère qui m'interesse).
En fait le problème c'est que j ai l'impression qu'il ne reconnais pas le format de la cellule de la feuille "donnee" ( la colonne A est celle qui est impactée). Il s'agit d'un n° de semaine.
Ce numero est comparé à une donnée d'une autre feuille "init".
Tout le code est fait en vba
Ce qui est bizarre c'est que lorsqu'on double click sur la cellule la valeur de la cellule devient un nombre et la comparaison devient possible 😕

Merci de m aider pour effectuer cette comparaison
 

Pièces jointes

Dernière modification par un modérateur:
Re : Pb de convertion de données

Bonjour Dodoremix

Essaie ce code pour ta macro tri
Code:
Sub tri()

Sheets("donnee").Select

dernier = Sheets("donnee").Range("A65536").End(xlUp).Row
Columns("A:A").TextToColumns Destination:=Range("A1"), TrailingMinusNumbers:=True
 Range("A2").Select
 
 For i = 2 To dernier
 Sheets("donnee").Select
 If (Trim(Range("A" & i).Value) = Sheets("init").Range("C1").Value) Then
     Sheets("donnee").Select
     Sheets("donnee").Range("A" & i & ":K" & i).Select 'selection de la plage de donnée
     Application.CutCopyMode = True
     Selection.Copy
 
    Sheets("S").Select
    pos_dans_feuille = Sheets("S").Range("A65536").End(xlUp).Row
    pos_dans_feuillep = pos_dans_feuille + 1
    Range("A" & pos_dans_feuillep).Select
    ActiveSheet.Paste
 
 ElseIf (Range("A" & i).Value = Sheets("init").Range("C2").Value) Then
 
      Sheets("donnee").Select
     Sheets("donnee").Range("A" & i & ":K" & i).Select 'selection de la plage de donnée
     Application.CutCopyMode = True
     Selection.Copy
 
    Sheets("S - 1").Select
    pos_dans_feuille = Sheets("S - 1").Range("A65536").End(xlUp).Row
    pos_dans_feuillep = pos_dans_feuille + 1
    Range("A" & pos_dans_feuillep).Select
    ActiveSheet.Paste
 
 Else

     Sheets("donnee").Select
     Sheets("donnee").Range("A" & i & ":K" & i).Select 'selection de la plage de donnée
     Application.CutCopyMode = True
     Selection.Copy
 
    Sheets("S + 1").Select
    pos_dans_feuille = Sheets("S + 1").Range("A65536").End(xlUp).Row
    pos_dans_feuillep = pos_dans_feuille + 1
    Range("A" & pos_dans_feuillep).Select
    ActiveSheet.Paste
 End If


                     
Next

End Sub


Bonne soirée,

Ninbihan
 
Re : Pb de convertion de données

Bonjour,

Je viens d'essayer ta macro mais ca ne fonctionne pas il mefait toujours pareil c'est à dire qu'il met tout dans l onglet "S + 1" car il ne voit pas que c'est un nombre alors que dès qu on "double clique" dessus il prend sa valeur numerique 😕 😕 je comprends vraimment pas pourquoi ??

Merci tout de même pour ton aide🙂
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…