macro détecter mot dans colonne

friendxconnect · 15 Octobre 2012

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 · 15 Octobre 2012

Re : macro détecter mot dans colonne

Bonjour

avec ceci ça à l'air de marcher:

VB:

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 · 15 Octobre 2012

Re : macro détecter mot dans colonne

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

roro69 · 15 Octobre 2012

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 · 15 Octobre 2012

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 · 15 Octobre 2012

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 · 15 Octobre 2012

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 · 15 Octobre 2012

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 · 15 Octobre 2012

Re : macro détecter mot dans colonne

c'est exactement ce que je voulais.

merci beaucoup

friendxconnect · 15 Octobre 2012

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 · 15 Octobre 2012

Re : macro détecter mot dans colonne

j'ai oublié de mettre l'exemple

roro69 · 16 Octobre 2012

Re : macro détecter mot dans colonne

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

friendxconnect · 16 Octobre 2012

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 · 16 Octobre 2012

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 · 16 Octobre 2012

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?

macro détecter mot dans colonne

friendxconnect

XLDnaute Junior

Pièces jointes

mikachu

XLDnaute Occasionnel

Pièces jointes

friendxconnect

XLDnaute Junior

roro69

XLDnaute Impliqué

friendxconnect

XLDnaute Junior

roro69

XLDnaute Impliqué

friendxconnect

XLDnaute Junior

roro69

XLDnaute Impliqué

friendxconnect

XLDnaute Junior

friendxconnect

XLDnaute Junior

friendxconnect

XLDnaute Junior

Pièces jointes

roro69

XLDnaute Impliqué

Pièces jointes

friendxconnect

XLDnaute Junior

roro69

XLDnaute Impliqué

Pièces jointes

friendxconnect

XLDnaute Junior

Discussions similaires