Pb de convertion de données

[dodoremix]

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

 

[ninbihan]

Re : Pb de convertion de données

Bonjour Dodoremix

Essaie ce code pour ta macro tri

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

 

[dodoremix]

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🙂

 

[ninbihan]

Re : Pb de convertion de données

Bonsoir Dodoremix,

Je t'ai réécrit la macro Tri, de ce que j'ai compris çà à l'air de fonctionner maintenant.


Bonne soirée,

Ninbihan

 

[dodoremix]

Re : Pb de convertion de données

Merci beaucoup à toi ça marche nickel 😀