re lire tableau a l'envers

[stefie]

rekiku c encore moi

vous mavez bien aider pour le tableau mais est-il possible que la macro ne me renvoi pas le Num de ligne et de colone mais les A1 et B1....je joint le fichier pour que les gens comprenne

ps: si cela vous ai possible pouver vous me mettre des commentaire tout o long de la macro pour que je progresse

MERCI ENCORE A TOUS VOUS ETES GENIAL :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: [file name=Stefie_20051005202517.zip size=7452]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Stefie_20051005202517.zip[/file]

 

[PascalXLD]

Bonjour

Voici avec une modif

Pour les explicatins du code je le ferai demain si personne ne s'y colle d'ici là [file name=Stefie_20051005212111.zip size=7883]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Stefie_20051005212111.zip[/file]

 

[Hervé]

Bonsoir steffie

Je ne sais pas à quoi sert cette fonction mais essaye comme ceci :

Function RechercheStefie(Cellule_a_chercher As Range, Plage_Recherche As Range) As String

Application.Volatile True

Dim c As Range
Dim MonNombre As Double
Dim MaDifference As Double
Dim MonChiffre As Double
Dim monadresse As String

MonNombre = Cellule_a_chercher.Value

'pour chaque cellule de la plage de recherche
For Each c In Plage_Recherche
'si la valeur de la cellule est inférieur à MonNombre alors ...
If c > MonNombre Then
'si la valeur de la cellule - monnombre......
If (c - MonNombre) < MaDifference Or MaDifference = 0 Then
'la variable Madifference= la valeur de la cellule - monnombre
MaDifference = c - MonNombre
'monadresse = l'adresse de la cellule au format A1 (0,0)
monadresse = c.Address(0, 0)
'monchiffre= la valeur de la cellule
MonChiffre = c
'fin de condition
End If
'pareil
End If
'prochaine cellule
Next

'si monadresse est vide alors
If monadresse = '' Then
'on renvoi ce message
RechercheStefie = 'Il n'y a aucun entier supérieur'
'sinon
Else
'on renvoi celui-ci
RechercheStefie = 'Nombre : ' & MonChiffre & '. à l'adresse : ' & monadresse
End If
End Function

salut

EDITION : oups, salut pascal

Message édité par: Hervé, à: 05/10/2005 21:27

 

[stefie]

:woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: MRECIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo:

 

[PascalXLD]

Bonjour

Pour Hervé ce code est la réponse à ce fil

Lien supprimé

Sinon une petite, minuscule erreur ici

'si la valeur de la cellule est inférieur à MonNombre alors ...
If c > MonNombre Then

le signe > C'est supérieur

Bonne journée à toi

 

[Hervé]

Bonjour tout le monde

Tu ne laisses rien passer, pascal

Merci pour ta correction.

salut

Message édité par: hervé, à: 06/10/2005 09:28