Si cellule vide alors

[Ken Hutchinson]

Salut,

Je suis toujours dans ma macro mais je rencontre quelques soucis..

Voilà : je fais un filtre automatique sur une valeur mais certains groupes ne possèdent pas cette valeur. Comme j'ai déjà copié les groupes dans une autre feuille et que je colle cette valeur ça me décale tout car le filtre auto n'a pas selectionné toutes les valeurs... et oui comme c'était vide...

Alors je me disais : comment dire à une macro de faire ça :
dans la colonne B, en ligne 5, si je n'ai pas le caractère Y alors j'y écris Y et ainsi de suite toute les 25 lignes, si ya déjà Y forcément on fait rien...

Vous sauriez faire ça les p'tits chats ?

 

[wilfried_42]

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

 

[Ken Hutchinson]

Re : Si cellule vide alors

Merci Wilfried !!

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

 

[wilfried_42]

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

 

[Ken Hutchinson]

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 ?

 

[wilfried_42]

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

 

[Pierrot93]

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.

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..

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
@+

 

[wilfried_42]

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

 

[Pierrot93]

Re : Si cellule vide alors

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

 

[excalibur]

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

 

[excalibur]

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 !!

 

[Ken Hutchinson]

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