Lecture d'une cellule et comparaison

P

Papaye

Guest

• 30 Mai 2006

• #16

Grrrr ... mon message ne passe pas.

Je te joins ma réponse dans un fichier !

Papaye [file name=Merevoilou.zip size=3602]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Merevoilou.zip[/file]

 

Pièces jointes

• Merevoilou.zip

  3.5 KB · Affichages: 12

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #17

Je regarde ton .doc et je te dis quoi mais ca devrais allé sas trop de problème
En tout cas encore merci pour ton interet et l efficacite de tes réponses

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #18

Sans problème, tout est super bien expliqué, le seul hic c est que j arrive toujours pas faire fonctionner la macros uniquement lorsque la pompe hydraulique est selectionner

j'ai ecris ca mais ca ne marche pas !

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 15 Or Target.Row = 22 Or Target.Row = 29) And _
Target.Column > 2 And Target.Column < 9 And Cells(4, 2) = 'Pompe hydraulique à main' Then Call Gregou(Target.Address)
End If
Else
Range(CibleAdresse).Offset(1, 0).Value = 0

End Sub

j'ai essayer plusieur position du End If avec ou sans else mais... non

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #19

j ai de nouveau test qui aboutisse pas mais ca avance un peu tout de meme puisque en position pompe le calcule se fait mais il plante en position balance au lieu de me mettre des zéros

voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 15 Or Target.Row = 22 Or Target.Row = 29) And _
Target.Column > 2 And Target.Column 2 And Target.Column < 9 And Cells(4, 2) = Sheets('Feuil2').Cells(11, 1)

Then Range(CibleAdresse).Offset(1, 0).Value = 0
End Sub


Le visual basic me dit que la méthode range de l objet worsheet a echoue ! et me souligne ce morceau de code : Then Range(CibleAdresse).Offset(1, 0).Value = 0
Que ce passe t'il ?

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #20

heu la manque un bout !

le code en entier:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 15 Or Target.Row = 22 Or Target.Row = 29) And _
Target.Column > 2 And Target.Column 2 And Target.Column < 9 And Cells(4, 2) = Sheets('Feuil2').Cells(11, 1)

Then Range(CibleAdresse).Offset(1, 0).Value = 0
End Sub

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #21

harg ca marche toujours pas bon voila le fichier sera plus simple [file name=macro_20060530100307.zip size=573]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macro_20060530100307.zip[/file]

 

Pièces jointes

• macro_20060530100307.zip

  573 bytes · Affichages: 6

Vote positif 0 Vote négatif

P

Papaye

Guest

• 30 Mai 2006

• #22

Bon ben ... tu peux faire :

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 15 Or Target.Row = 22 Or Target.Row = 29) And _
Target.Column > 2 And Target.Column < 9 And Cells(4, 2).Text = 'Pompe hydraulique à main' Then Call Gregou(Target.Address)
End Sub

Ta macro ne se déclenchera que si tu sélectionnes la pompe et pas la balance.

C'est bon ?

Papaye

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #23

oui ca marche mais en faite sans vouloir faire le vieux relou ( même si c'est le cas...) je voulais que lorsque l'option balance soit prise les corrections soit égale a zéro
voila le pourquoi de mon entetement

 

Vote positif 0 Vote négatif

P

Papaye

Guest

• 30 Mai 2006

• #24

Non ... c'est pas bon :

La macro suivante t'effacera en plus le correctif quand tu sélectionnes la balance et non le manomètre.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 15 Or Target.Row = 22 Or Target.Row = 29) And _
Target.Column > 2 And Target.Column 2 And Target.Column < 9 Then
If Cells(4, 2).Text = 'Pompe hydraulique à main' Then
Call Gregou(Target.Address)
Else
Range('C16:H16').Value = ''
Range('C23:H23').Value = ''
Range('C30:H30').Value = ''
End If
End If
End Sub

Papaye

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #25

le soucis viens du Range(CibleAdresse).Offset(1, 0).Value = 0 qui ne veux rien dire en faite !
Je ne sais comment nommer les cellules correspondant aux corrections (cellule C16, D16...C23,D23...et C30,D30...), Cible adresse renvoyant a la 2eme macro si je comprend bien ?!

 

Vote positif 0 Vote négatif

P

Papaye

Guest

• 30 Mai 2006

• #26

On s'est croisé (rien de sexuel là dessous !),

Essayes une des deux macros, la première ne remet à zéro que le correctif en dessous de la cellule saisie.

La deuxième efface tout les correctifs !

Après c'est comme tu veux, veux tu n'effacer qu'un correctif, que les correctifs d'un tableau, que les correctifs d'une colonne, tous les correctifs ?

Je suis impatiente de le savoir !

Papaye

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #27

ah ca marche pas ! il me dit Else sans If
je vais teste mon truc avec les Ranges que tu as créé

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #28

a ce point ?
Alors j'ai des petits soucis, le 1er c'est que ta derniere macro ne marche pas chez moi:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 15 Or Target.Row = 22 Or Target.Row = 29) And _
Target.Column > 2 And Target.Column 2 And Target.Column < 9 Then
If Cells(4, 2).Text = 'Pompe hydraulique à main' Then
Call Gregou(Target.Address)
Else
Range('C16:H16').Value = ''
Range('C23:H23').Value = ''
Range('C30:H30').Value = ''
End If
End If
End Sub

Il me dit Else sans If... je sais pas trop pourquoi mais bon, il veut rien savoir !

Le second probleme qui n'en est pas vraiment un c'est que ta 1er macro marche mais laisse la correction tel quelle sans remplacer le chiffre dans la cellule ' correction' par 0

En faite j'ai pas compris ce que tu m'as dit puisque pour moi la premiere macros ne remet pas a 0 le correctif en dessous de la cellule saisie ( ce que j aimerai avoir) et la seconde ne marchant pas elle n'efface pas tous les correctifs ( chose pour moi sans grand interet)

Ce que je désir c'est que lorsque la pompe hydraulique est selectionnée, les corrections se calcule via la macro comme depuis toujours et que les corrections soit bien afficher dans la cellule en dessous de la cellule d'entrée

Enfin lorsque la balance mano est selectionnée toutes mes corrections en dessous des cellules d'entrée affiche directement 0

voila j'espere etre clair ?!

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #29

bonne nouvelle cette macros marche mais ne fonction que pour la ligne 16:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 15 Or Target.Row = 22 Or Target.Row = 29) And _
Target.Column > 2 And Target.Column 2 And Target.Column < 9 And Cells(4, 2) = Sheets('Feuil2').Cells(11, 1)
Then Range('C16:H16').Value = 0
End Sub

comment faire pour l'étendre aux autres ligne ?

 

Vote positif 0 Vote négatif

G

gregou

Guest

• 30 Mai 2006

• #30

RRRrrrrrhhhh mes posts de code foire tout le temp !

le fichier correspondant [file name=macro_20060530110646.zip size=321]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macro_20060530110646.zip[/file]

 

Pièces jointes

• macro_20060530110646.zip

  321 bytes · Affichages: 4

Vote positif 0 Vote négatif