Aide pour une macro

[sly99]

Kikoo le forum..

je butte sur un petit problème qui je suis certain n'en est pas un pour vous..

voici ma macro..

Sub remplissage()

Cells(9, 3).Select

Do Until ActiveCell.Value = 1
ActiveCell.Offset(0, 1).Select
Loop

End Sub

en fait ca fonctionne très bien sauf que je souhaiterai a la place du 1 dire "jusqu'a ce qu'il y est une valeur numérique" et je sais plus du tout comment ont écrit ca.. lol..

miciou bcp..
byzz

 

[wilfried_42]

Re : Aide pour une macro

Bonjour sly99

Do Until isnumeric(ActiveCell.Value) = true ' = true n'est pas obligatoire
ActiveCell.Offset(0, 1).Select
Loop

 

[sly99]

Re : Aide pour une macro

je me disais bien que c'était tout béta..Lol

merci wilfried.. c'est sympas..

++

 

[sly99]

Re : Aide pour une macro

Arf... est-il possible de faire une petite modification s'il te plait wilfried (ou quelqu'un d'autre)

en fait il faudrait

Si la valeur dans la cell(9,3) est numérique alors n = cette valeur
Sinon décaler vers la droite jusqu'a avoir une valeur numérique et alors n = cette valeur - 1

en fait c'est pour pouvoir trouver le numéro de la semaine (par rapport a mon post précédent (planning)) mais vous l'aviez compris..lol

byzzz et encore merci

 

[sly99]

Re : Aide pour une macro

désolé.. lol

j'ai testé ca et ca fonctionne.. (peut etre un peu barbare lol)

Dim n As Variant

Cells(9, 3).Select

Do Until IsNumeric(ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop

If ActiveCell.Select = Cells(9, 3) Then
    n = ActiveCell.Value
Else
    n = ActiveCell.Value - 1
    If n = 0 Then n = 4
End If

si vous avez une solution plus élégante suis preneur..
mici..

 

[Pierrot93]

Re : Aide pour une macro

Bonjour Sly, Wilfried

pas sur d'avoir tout compris, essaye peut être fait comme ci dessous :

Sub test()
Do While IsNumeric(ActiveCell.Value)
    ActiveCell.Value = ActiveCell.Value - 1
    ActiveCell.Offset(0, 1).Select
Loop
End Sub

sinon, tu peux essayer une boucle "for each", c'est peut être plus approprié. A voir.

bonne soirée
@+

 

[sly99]

Re : Aide pour une macro

kikoo pierrot...

merci pour ta solution mais c'est pas ce que je cherche a faire (vrai aussi que je me suis peut etre mal expliqué lol) .. mais apparement comme j'ai fais ca fonctionne (cf code au dessus).. (sauf que je trouve un peu barbare.. doit exister une solution plus élégante..lol).. mais pour l'instant je fais avec..

mici a toi..
++

 

[Pierrot93]

Re : Aide pour une macro

Re

mets un petit fichier exemple en plièce jointe, avec les données de départ et le résultat attendu.

@=

 

[sly99]

Re : Aide pour une macro

bah en fait le fichier de depart.. il est sur ce fil..

ce post c'est juste pcq je cherche aussi de mon coté une petite solution..
pour remplir mon planning automatiquement a partir de la base de donnée..
j'ai bine une petite idée pr le faire.. mais mon niveau en vba est assé limité dc je tatonne.. lol

 

[wilfried_42]

Re : Aide pour une macro

re: Bonjour pierrot

le ne sais pas si j'ai compris

tu as 2 solutions , soit avant de sortir de la boucle, soit apres etre sorti

Do Until IsNumeric(ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
if isnumeric(activecell) then n = activecell
Loop

Do Until IsNumeric(ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
n = activecell