Problème avec =Dertripequ1()

[Clochard]

Bonjour le Forum

J'ai un petit problème qui s'est développé aujourd'hui et que je n'arrive pas à solutionner... j'aimerais avoir recours à vos super connaissances...

Pour obtenir le dernier pointage j'utilise =dertripequ1() avec

Function dertripequ1()
Application.Volatile
For i = 127 To 4 Step -1
If Sheets("Pointages").Cells(165, i) <> "" Then dertripequ1 = Sheets("Pointages").Cells(165, i): Exit Function
Next
End Function

Normalement ça fonctionne bien... mais là pour obtenir les résultats de pointage de la dernière semaine dans la ligne 165 j'utilise =SOMME(D5😀8) =SOMME(E5:E8... aussi dans F,G,H... etc jusqu'à DW

ainsi lorsque j'ajoute la formule somme dans la ligne 165 je n'obtiens plus rien.... comme résultat de dernière entrée

??????????

D'après vous S.V.P...comment puis-je résoudre ce problème

Clochard

 

[PMO2]

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

 

[Clochard]

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

 

[Clochard]

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

 

[James007]

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 +

 

[PMO2]

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

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

 

[Clochard]

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

 

[Clochard]

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

 

[CB60]

Re : Problème avec =Dertripequ1()

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

 

[James007]

Re : Problème avec =Dertripequ1()

Tu peux essayer

Application.Volatile True

A +

 

[Clochard]

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

 

[Clochard]

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

 

[wilfried_42]

Re : Problème avec =Dertripequ1()

Bonjour clochard, bonjour à tous

tu sors de ta procedure de facon anormale :

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

[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

 

[PMO2]

Re : Problème avec =Dertripequ1()

Bonjour,

Essayez avec cette nouvelle mouture de fonction personnalisée

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

 

[Clochard]

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