test et ajout en vba

[ALex]

Bonjour,

Voila je me casse la tete depuis pas mal de temps sur un pb tout bete c'est pourquoi je fais appel a vous

Voila je vous joins un fichier qui explique bien le probléme
Si vous pouvez y jeter un coup d'oeil merci d'avance

[file name=Classeur1_20060329142330.zip size=2851]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060329142330.zip[/file]

 

[pierrejean]

bonjour Alex

je nasais pas si j'ai bien compris

vois et tiens moi au courant [file name=alex1_20060329171751.zip size=10943]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/alex1_20060329171751.zip[/file]

 

[porcinet82]

Salut Alex, salut PierreJean,

Comme j'avais commencé a faire un réponse, je la joint quand meme, mais c'est pas seulement pour ca que je post.

Il me semble t'avoir filé un petit coup de main il y a quelques temps sur le meme fichier, mais pour une question différente dont j'attends toujours la reponse si ca va ou pas???

Sache que les personnes qui passent sur ce forum et aide les autres sont des bénévoles et des passionnés d'excel (pour certains je crois meme qu'ils sont plus qu'accros) et qu'un petit merci fait plaisir, on peut ainsi voir que notre travail n'a pas servit a rien.

Bon allé je te file quand meme une macro qui réalise ce que tu souhaites :
Sub essai()

Dim i As Integer, j As Integer

j = 10
For i = 10 To Range('F65536').End(xlUp).Row - 1
    Do While Cells(i, j).Value = ''
        Cells(i, j).Value = 'sd'
        j = j + 2
    Loop
    j = 10
Next i
End Sub

Et cette fois, tiens nous au courant :angry:

@+

Message édité par: porcinet82, à: 29/03/2006 17:46