Macro recherche données

phlaurent55

Nous a quittés en 2020

Repose en paix

• 27 Janvier 2009

• #2

Re : Macro recherche données

bonjour roidurif

roidurif à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 27 Janvier 2009

• #3

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

 

Dernière édition: 27 Janvier 2009

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 27 Janvier 2009

• #4

Re : Macro recherche données

Bonjour le fil,

et avec ceci?

If cel.Text <> "10.0501" Then

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 27 Janvier 2009

• #5

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

 

Dernière édition: 15 Février 2009

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 27 Janvier 2009

• #6

Re : Macro recherche données

Re,

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

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 28 Janvier 2009

• #7

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 28 Janvier 2009

• #8

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:

Code:

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

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 28 Janvier 2009

• #9

Re : Macro recherche données

Bonjour,

Merci bien

 

Dernière édition: 28 Janvier 2009

Vote positif 0 Vote négatif