pb Select Case

[nanor]

Salut le forum,

Bonne journée à tous sous ce soleil radieux !!
J'ai un petit problème avec un script et j'espère que vos lumières m'aideront.
Dans ce code je cherche à tester si 2 valeurs sont égales, auquel cas, j'applique la formule. A priori mon erreur se trouve dans ce que j'ai mis en gras mais je ne trouve pas la bonne syntaxe.


For Ligne = 3 To 500
Select Case (UCase(Range("B" & Ligne).Value))
Case Is = B & (Ligne + 1)
Range("F" & Ligne).Formula = "DAYS360(RC[-5],R[1]C[-5])"
End Select
Next


Merci pour votre aide.
nanor

 

[nanor]

Petite précision car mon explication ne me parait pas complète.

le select case sert à tester par exemple si B1=B2, B2=B3,...

nanor

 

[Baroude]

Salut à tous et à toutes,

Essaye ça :

For Ligne = 3 To 500
Select Case (UCase(Range("B" & Ligne).Value))
Case Is = Range("B" & Ligne + 1)
Range("F" & Ligne).Formula = "DAYS360(RC[-5],R[1]C[-5])"
End Select
Next


sinon pourquoi ne pas utiliser :

For Ligne = 3 To 500
If Range("B" & Ligne) = Range("B" & Ligne + 1) Then
Range("F" & Ligne).Formula = "DAYS360(RC[-5],R[1]C[-5])"
End If
Next

Bon courage

Baroude

 

[nanor]

Génial ca marche du tonnerre!!!
Merci beaucoup Baroude.

Comme j'y suis ya une commande que j'aimerais utiliser mais j'ai jamais réussi à la faire fonctionner.

En fait j'aimerais remplacer :
For Ligne = 3 To 500
par
While Not IsEmpty(Range("A"))

En gros je voudrais appliquer ma fonction tant qu'il y a des valaurs dans la colonne A.

Merci d'avance si tu as une idée.
nanor

 

[nanor]

En fait je dis une betise.

Je me sers de :
Range("F" & Ligne).Formula

donc je suis obligé de faire
For Ligne = 3 to ...

Par contre, est ce que c'est possible de tester la colonne avec "For"?

 

[Baroude]

Re-Salut,

Essaye ça :

For Ligne = 3 to WorksheetFunction.Count(Range("A:A"))

utilises Count si dans ta colonne A tu as que des valeurs numériques ou sinon utilises CountA si tu as des valeurs alphanumériques...

Benne journée

 

[nanor]

Re-

Impec!!!

Mais comment fais-tu??

Merci beaucoup en tout cas, ca m'a rendu un grand service!

nanor

 

[nanor]

Tiens, comme j'y pense, j'ai une dernière question sur le même sujet (j'espère la dernière...)

Est-ce qu'il y a un moyen de faire un truc du même style que:

For Ligne = 3 to WorksheetFunction.CountA(Range("A:A"))

mais en ayant une valeur de fin (par exemple la valeur "FIN" dans une cellule).

For Ligne = 3 to WorksheetFunction.CountA(Range"A:A")).Value = "FIN"
--> Ca veut surement rien dire ce que j'ai écrit...

Merci
nanor

 

[Baroude]

Comment je fais ?

c'est simple... je me ballade sur le forum, je pioche des infos à droite à gauche et je regarde l'aide VBA avec les exemples (surtout les exemples)...
Et puis un jour j'ai regardé TOUTES les formules existantes dans Excel, ça donne une idée, parce que le tout, c'est d'avoir une philosophie de travail, de se dire... oui c'est possible ou bien merdoum ça va pas être facile... mais bon, tout ça dans la bonne humeur et la patience....

Bonne journée

Baroude