Macro recherche données

[roidurif]

Bonjour,

comment rajouter une macro et qui vérifie : La colonne Prix (AX) qui doit vérifier si la données saisie est bien celle ci :10.0501 et non pas une autre.

=> si données ou format different par exemple :
10,0501 ou autre 0.000 (contient virgule ou autre données)

alors inscrire "Numéro célulle" dans l' onglet feuil2 (Version UPS 10.0501)

Merci d avance

 

[phlaurent55]

Re : Macro recherche données

bonjour roidurif

comment rajouter une macro et qui verifie : La colonne Prix (AX) qui doit accepter uniquement la données 10.0501 :

=> si données ou format different par exemple :
10,0501 ou autre 0.000 (contient virgule ou autre données)

alors inscrire "Numéro célulle" dans l' onglet feuil2 (Version UPS 10.0501)

Merci d avance

pour la phrase (en bleu) tu peux passer par "Données", "Validation", "autoriser", décimal, "données", égal à 10,0501

 

[roidurif]

Re : Macro recherche données

merci, mais je ne peux pas utiliser de validation,

Je veux simplement une macro qui puisse le faire si vous pouvez m aider svp

j ai fait ca mais j'obtien l' inverse de ce que je souhaite

Sub ctrl_UPS()
col = 2
For Each cel In Sheets(DATA).Range("AX2:AX" & Sheets(DATA).Range("AX65536").End(xlUp).Row)
If InStr(cel.Formula, "10.0501") <> 0 Then
Sheets(CONTROLE).Cells(18, col) = cel.Address(REF_ABS, REF_ABS)
col = col + 1
End If
Next cel
End Sub

 

[skoobi]

Re : Macro recherche données

Bonjour le fil,

et avec ceci?

If cel.Text <> "10.0501" Then

 

[roidurif]

Re : Macro recherche données

Merci,

j'ai un souci, j'ai une erreur d'exécution lorsque '1004' lorsque je relance les macro par le bouton "contrôle de donnée".

J'ai cette erreur uniquement quand tout une ligne de la feuil2 est rempli.

Ci joint mon fichier pour verifier pour exemple

Cdt

 

[skoobi]

Re : Macro recherche données

Re,

pas moi. Peux-tu préciser la ligne sur laquelle ça se produit?

 

[roidurif]

Re : Macro recherche données

Re,

En fesant Mode debogage, j'ai la ligne 8 de Visual Basic qui est surligné en Jaune de la macro Caracteres_speciaux :

Ligne 7 : Sub Caracteres_speciaux()
Ligne 8 : Sheets(CONTROLE).Range("A1").CurrentRegion.Offset(0, 1).Clear

Voir la PJ hier à 21h34 et cliquer sur bouton "contôle de données" dans l'onglet feuil2 pour voir l'erreur


Merci

 

[skoobi]

Re : Macro recherche données

Bonjour,

le problème se produit si toutes les colonnes sont remplis pour une (ou plusieurs) ligne, ce qui est le cas ici. Pourquoi? car dans ce cas Offset( 0, 1) recherche la colonne suivante qui n'existe pas.
Modifie comme ceci:

Sub Caracteres_speciaux()
With Sheets(CONTROLE)
  Set Plage = .Range("B1").CurrentRegion
  .Range(.Range("B1"), Plage.Cells(Plage.Cells.Count).Address).Clear
End With
.........
.............

 

[roidurif]

Re : Macro recherche données

Bonjour,

Merci bien