Problème avec =Dertripequ1()

P

PMO2

XLDnaute Accro

• 9 Février 2009

• #2

Re : Problème avec =Dertripequ1()

Bonjour,

A tout hasard, essayez avec la ligne modifiée

For i = 256 To 4 Step -1

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 9 Février 2009

• #3

Re : Problème avec =Dertripequ1()

Bonjour PMO2 et le Forum,


J'ai mis en place ta suggestion.... malheureusement j'obtiens toujours le même résultat... soit ... rien


Merci de m'avoir répondu...

Clochard

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 10 Février 2009

• #4

Re : Problème avec =Dertripequ1()

Bonjour le forum,

Je tente de mieux expliquer mon problème avec ce fichier joint

Merci d'y regarder
Clochard

 

Pièces jointes

• Clochard3.xls

  195 KB · Affichages: 139

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 10 Février 2009

• #5

Re : Problème avec =Dertripequ1()

Salut,

Difficile de comprendre ton problème ... et le résultat recherché ...
Cependant, une ou deux remarques :

Ta fonction cherche en colonne 127 (i.e. DW ) ... est-ce la bonne colonne ?
Comme je ne comprends pas ce que tu cherches, je ne peux pas deviner la colonne, mais a priori cela serait entre 131 et 136 ( EA à EF )

Pourquoi 10 Fonctions pour faire la même chose ???

A +

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 10 Février 2009

• #6

Re : Problème avec =Dertripequ1()

Bonjour,

Remplacez toutes vos fonctions DerSemx par une seule et unique fonction
DerSem_pmo dont le code est ci-dessous

Code:

Function DerSem_pmo() As Double
Dim R As Range
Dim var
Dim i&
Dim j&
Application.Volatile
Set R = Application.Caller
If R.Column <> 1 Then
  MsgBox "Cette fonction ne fonctionne qu'en colonne A"
  Exit Function
End If
i& = R.Row
Set R = Sheets(Application.Caller.Parent.Name).Range(Cells(i&, 4), Cells(i&, 127))
var = R
For j& = UBound(var, 2) To LBound(var, 2) Step -1
  If IsNumeric(var(1, j&)) Then
    If var(1, j&) > 0 Then
      DerSem_pmo = var(1, j&)
      Exit Function
    End If
  End If
Next j&
End Function

Cette fonction ne peut avoir d'effet que quand elle est utilisée en colonne "A".

Exemple d'utilisation :
Tapez en A55 la formule =Dersem_pmo() puis tirez la de A55 jusqu'à A64
Vous devriez obtenir ce que vous demandez.

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 10 Février 2009

• #7

Re : Problème avec =Dertripequ1()

Bonjour le Forum, PMO2 et James007

Merci PMO2,

Ça semble répondre à mon problème.... et en plus ça simplifie mon travail...

Merci beaucoup d'y avoir regardé

Clochard

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 14 Février 2009

• #8

Re : Problème avec =Dertripequ1()

Bonjour le Forum

Que devrais-je ajouter à ceci

Function DerSem_pmo() As Double
Dim R As Range
Dim var
Dim i&
Dim j&
Application.Volatile
Set R = Application.Caller
If R.Column <> 1 Then
MsgBox "Cette fonction ne fonctionne qu'en colonne A"
Exit Function
End If
i& = R.Row
Set R = Sheets(Application.Caller.Parent.Name).Range(Cells(i&, 4), Cells(i&, 127))
var = R
For j& = UBound(var, 2) To LBound(var, 2) Step -1
If IsNumeric(var(1, j&)) Then
If var(1, j&) > 0 Then
DerSem_pmo = var(1, j&)
Exit Function
End If
End If
Next j&
End Function


Pour ne pas avoir constamment durant mon travail à appuyer sur F9 pour la rendre effective???

Merci de me répondre

Clochard

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 14 Février 2009

• #9

Re : Problème avec =Dertripequ1()

Bonsoir
Peut être un calculate
End If
Calculate
Next j&

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 15 Février 2009

• #10

Re : Problème avec =Dertripequ1()

Tu peux essayer

Code:

Application.Volatile True

A +

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 15 Février 2009

• #11

Re : Problème avec =Dertripequ1()

Bonjour les gens du Forum, CB60 et James007,

Merci à vous deux de m'avoir répondu...

Hélas je n'arrive pas a régler mon problème avec vos solution...

Mes données sont en Feuil! Pointages et en feuil!Rapport je fais un résumé des pointages par joueur et par équipe...

Lorsque je fais un changement dans RAPPORT toutes les cellules de chiffres rapportés deviennent #VALEURS <... je dois donc retourner sur POINTAGES qui se corrige automatiquement...

Merci en espérant être clair

Clochard

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 15 Février 2009

• #12

Re : Problème avec =Dertripequ1()

Bonjour Jean-Marcel et le Forum

Est-ce bien placé

Function Derpointage() As Double
Dim R As Range
Dim var
Dim i&
Dim j&
Application.Volatile
Set R = Application.Caller
If R.Column <> 1 Then
MsgBox "Cette fonction ne fonctionne qu'en colonne A"
Exit Function
End If
i& = R.Row
Set R = Sheets(Application.Caller.Parent.Name).Range(Cells(i&, 4), Cells(i&, 127))
var = R
For j& = UBound(var, 2) To LBound(var, 2) Step -1
If IsNumeric(var(1, j&)) Then
If var(1, j&) > 0 Then
Derpointage = var(1, j&)
Exit Function
End If
End If
Calculate
Next j&
End Function



Si oui...ça n'a malheureusement aucun effet...

Mon coeur saigne....

Clochard

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 15 Février 2009

• #13

Re : Problème avec =Dertripequ1()

Bonjour clochard, bonjour à tous

tu sors de ta procedure de facon anormale :

Code:

[B][COLOR="Red"]Exit Function[/COLOR][/B]
End If
End If
Calculate
Next j&
End Function

Code:

[COLOR="red"][B]Exit For[/B][/COLOR]
End If
End If
Next j&
application.calculate
End Function

par contre je sens un probleme futur .... une boucle qui ne s'arrete pas....
calculate risque de relancer ce calcul qui finalement se relancera indéfiniment

je te suggère donc de te mettre en calcul automatique et d'enlever ce calculate

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 15 Février 2009

• #14

Re : Problème avec =Dertripequ1()

Bonjour,

Essayez avec cette nouvelle mouture de fonction personnalisée

Code:

Function DerSem_pmo2(Plage As Range) As Double
Dim var
Dim j&
Application.Volatile
var = Plage
For j& = Plage.Columns.Count To 1 Step -1
  If IsNumeric(var(1, j&)) Then
    If var(1, j&) > 0 Then
      DerSem_pmo2 = var(1, j&)
      Exit Function
    End If
  End If
Next j&
End Function

FONCTIONNEMENT
Dans la cellule A55 (par exemple) tapez =Dersem_pmo2(D55 : DW55)
Ce coup-ci, la fonction demande qu'on lui passe un paramètre Plage.
Vous pouvez étirer la fonction sur les cellules suivantes.

Si cela fonctionne, vous pouvez jeter l'ancienne fonction personnalisée.

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 16 Février 2009

• #15

Re : Problème avec =Dertripequ1()

Bonjour PMO2 et le Forum

Malheureusement la dernière formule n'arrange rien à mon problème....

Sniffff....

Merci d'y fournir l'effort pour m'aider...

Clochard

 

Vote positif 0 Vote négatif