macro détecter mot dans colonne

[friendxconnect]

bonjour à tous grâce à vous j'avance pas à pas dans mon projet.
sur appui sur bouton 1
je souhaite détecter le mot dimanche dans ma colonne I.
à chaque dimanche je veux vider les cellules de la ligne:
dans mon fichier exemple, la ligne 7 il y a dimanche donc je veux vider B7 C7 D7 E7 F7 H7 I7 J7

et ainsi de suite jusqu'à la fin de la feuille.

merci d'avance
bruno

 

[mikachu]

Re : macro détecter mot dans colonne

Bonjour

avec ceci ça à l'air de marcher:

Sub Bouton1_QuandClic()

With Feuil3
For i = .Range("I65536").End(xlUp).Row To 3 Step -1
If .Range("I" & i).Value = "dimanche" Then .Range("I" & i).EntireRow.Delete
Next i
End With

End Sub

 

[friendxconnect]

Re : macro détecter mot dans colonne

merci pour la solution, je ne veux pas supprimer la ligne, je veux vider les cellules.

 

[roro69]

Re : macro détecter mot dans colonne

Bonjour a essayer

Sub Bouton1_QuandClic()

Dim RgJour As Range
Dim Cel As Range
Set RgJour = Feuil3.Range("I1", Feuil3.Range("I65536").End(xlUp))

For Each Cel In RgJour
If Cel Is Nothing Then Exit Sub
If Cel = "dimanche" Then
Cel.Offset.Clear
Cel.Offset(0, 1).Clear
Cel.Offset(0, -1).Clear
Cel.Offset(0, -2).Clear
Cel.Offset(0, -3).Clear
Cel.Offset(0, -4).Clear
Cel.Offset(0, -5).Clear
Cel.Offset(0, -6).Clear
Cel.Offset(0, -7).Clear

End If
Next Cel


End Sub

A++

 

[friendxconnect]

Re : macro détecter mot dans colonne

merci ça fonctionne.
je voudrais modifier le code pour contrôler seulement de I3 à I33
car je veux vider les cellules où il n'y a pas de jour comme le 31 pour le mois d'octobre
pour contrôler la cellule vide dans I j'ai compris que je prends le même code en enlevant "dimanche".

 

[roro69]

Re : macro détecter mot dans colonne

RE
Pour controler seulement I3 à I33 fait comme ceci
Change la ligne :

Set RgJour = Feuil3.Range("I1", Feuil3.Range("I65536").End(xlUp))

par celle ci

Set RgJour = Feuil3.Range("I3:I33")

A++

 

[friendxconnect]

Re : macro détecter mot dans colonne

merci,
donc je veux d'abord contrôler si il y a des cellules vides en I
par exemple i33 est vide au mois d'octobre
donc je veux vider les cellules b à J de la ligne 33
ensuite je veux vider les dimanches et ensuite les lundi

 

[roro69]

Re : macro détecter mot dans colonne

RE si j'ai compris:

Sub Bouton1_QuandClic()
Dim RgJour As Range
Dim Cel As Range
Set RgJour = Feuil3.Range("I3:I33")
For Each Cel In RgJour
If Cel = "" Or Cel = "dimanche" Or Cel = "lundi" Then
Cel.Offset.Clear
Cel.Offset(0, 1).Clear
Cel.Offset(0, -1).Clear
Cel.Offset(0, -2).Clear
Cel.Offset(0, -3).Clear
Cel.Offset(0, -4).Clear
Cel.Offset(0, -5).Clear
Cel.Offset(0, -6).Clear
Cel.Offset(0, -7).Clear
End If
Next Cel
End Sub

A++

 

[friendxconnect]

Re : macro détecter mot dans colonne

c'est exactement ce que je voulais.

merci beaucoup

 

[friendxconnect]

Re : macro détecter mot dans colonne

maintenant est il possible d'ecrire "sem(N° de la semaine") dans le cellules en dessous des samedi ?
et ou de faire les totaux des semaines en j6 j13 ... dans l'exemple

 

[friendxconnect]

Re : macro détecter mot dans colonne

j'ai oublié de mettre l'exemple

 

[roro69]

Re : macro détecter mot dans colonne

Bonjour
Si j'ai compris voici ton fichier en retour
A++

 

[friendxconnect]

Re : macro détecter mot dans colonne

merci roro69
c'est presque ça sauf que je souhaiterais que ça soit la vraie semaine de l'année:
tu a mis sem1 mais en fait dans l'exemple c'est le mois de novembre donc c'est sem44 si je ne me trompe pas

 

[roro69]

Re : macro détecter mot dans colonne

Bonjour
Vici le fichier en retour.
J'ai mis en N3 la date pour retrouver le n°de semaine en O3 et ainsi pouvoir avoir les autres N°semaine .

 

[friendxconnect]

Re : macro détecter mot dans colonne

j'ai mis =DATE(C1;B1;A3) en n3 pour faire la meme chose
pour que sem44 s'écrive en rouge, il faut rajouter quoi dans la macro?