Si cellule vide alors

wilfried_42

XLDnaute Barbatruc

• 8 Décembre 2006

• #2

Re : Si cellule vide alors

salut ken, le forum

for each cel in range("B:B")
if cel(i,2).value="" then cel(i,2).value="Y"
next i

salutations

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 8 Décembre 2006

• #3

Re : Si cellule vide alors

Merci Wilfried !!

mais dans la formule je ne vois rien concernant le saut de 25 lignes en 25 lignes...😉

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 8 Décembre 2006

• #4

Re : Si cellule vide alors

re

toutes les cellules de la colonne B seront testées, le saut de 25 dans ce cas ne sert à rien meme si c'est toute les 25 lignes que ta cellule vide apparait
par contre j'ai un bug, la toute la colonne sera testee

for eache cel in range(B:b65536).end(xlup).row

à confirmer par le forum, je suis le fil

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 8 Décembre 2006

• #5

Re : Si cellule vide alors

et c'est là mon problème !! car il y a plusieurs cellules vides et après cette ligne (5 - 30 - 55.......) j'ai une autre série dans laquelle, il faut écrire S (en 6 - 31 - 56....), et ainsi de suite...

vous croyez que c'est faisable ?

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 8 Décembre 2006

• #6

Re : Si cellule vide alors

re

oui c'est faisable si c'est aussi regulier
mais envoie nous un bout de ton fichier, sans reseignement indiscret

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Décembre 2006

• #7

Re : Si cellule vide alors

Bonjour Ken Hutchinson, Wilfried

Essaye ce code, il boucle sur la colonne B, a partir de la ligne 5 (tu peux modifier si tu l'adaptes à une série qui commence par 6), et toutes les 25 lignes il remplace une cellule vide par Y.

Code:

Sub test()
Dim l As Integer, MaPlage As Range

Set MaPlage = Range("B1:B" & Range("B65536").End(xlUp).Row)

For l = 5 To MaPlage.Rows.Count Step 25
    If MaPlage(l, 1).Value = "" Then MaPlage(l, 1).Value = "y"
Next l
End Sub

@Wilfried
il faudra que tu m'expliques ton code..

Code:

for eache cel in range(B:b65536).end(xlup).row

un minimum de test et de cohérence est tout de même à faire avant de répondre afin de conserver la grande qualité de ce forum...

bonne journée
@+

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 8 Décembre 2006

• #8

Re : Si cellule vide alors

re:

tiens un exemple, appuie sur le bouton

ps pierrot93 faute pour cause de frappe rapide
for each cel in range("B65536").end(xlup).row

pardon au forum

 

Pièces jointes

• essai1.xls

  39.5 KB · Affichages: 105
• essai1.xls

  39.5 KB · Affichages: 115
• essai1.xls

  39.5 KB · Affichages: 111

Dernière édition: 8 Décembre 2006

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Décembre 2006

• #9

Re : Si cellule vide alors

Re wilfried, je suis pas sur que cela fonctionne mieux..."range("B:B65536").end(xlup).row"

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 8 Décembre 2006

• #10

Re : Si cellule vide alors

bonjour Ken wilfried_42 Pierrot93 le forum une autre facon de faire
Option Explicit
Sub zy()
Dim i&, c&
Application.ScreenUpdating = False
[b5].Select
If [b5].Value = "" Then [b5] = "y"
For i = 30 To [b65536].Row
If cells(i, 2) = "" Then cells(i, 2) = "y"
i = i + 24
Next i
[b6].Select
If [b6].Value = "" Then [b6] = "s"
For c = 31 To [b65536].Row
If cells(c, 2) = "" Then cells(c, 2) = "s"
c = c + 24
Next c
End Sub'salutations

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 8 Décembre 2006

• #11

Re : Si cellule vide alors

rebonjour tous le monde une version simplifie
Option Explicit
Sub z()
Dim i&
Application.ScreenUpdating = False
[b5].Select
If [b5].Value = "" Then [b5] = "y"
If [b6].Value = "" Then [b6] = "s"
For i = 30 To [b65536].Row
If Cells(i, 2) = "" Then Cells(i, 2) = "y"
If Cells(i + 1, 2) = "" Then Cells(i + 1, 2) = "s"
i = i + 24
Next i
End Sub'salutations
ps par contre si tu traite seulement ex:500lignes tu peus ecrire
For i = 30 To [b500].Row la macro ira toujours plus vite !!

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 8 Décembre 2006

• #12

Re : Si cellule vide alors

Ben merci les gars !!! ou p't'être bien les filles....

Je vais tenter tout ça. Et si ça marche pas vous allez m'entendre râler !!😀

Je vous tiens au courant si ça marche.

A ciao

 

Vote positif 0 Vote négatif