macro détecter mot dans colonne

mikachu

XLDnaute Occasionnel

• 15 Octobre 2012

• #2

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

 

Pièces jointes

• friend 1.xls

  51 KB · Affichages: 43
• friend 1.xls

  51 KB · Affichages: 53
• friend 1.xls

  51 KB · Affichages: 47

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 15 Octobre 2012

• #3

Re : macro détecter mot dans colonne

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

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Octobre 2012

• #4

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

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 15 Octobre 2012

• #5

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

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Octobre 2012

• #6

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

Cliquez pour agrandir...

par celle ci

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

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 15 Octobre 2012

• #7

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

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Octobre 2012

• #8

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

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 15 Octobre 2012

• #9

Re : macro détecter mot dans colonne

c'est exactement ce que je voulais.

merci beaucoup

 

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 15 Octobre 2012

• #10

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

 

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 15 Octobre 2012

• #11

Re : macro détecter mot dans colonne

j'ai oublié de mettre l'exemple

 

Pièces jointes

• friend 2).xls

  49 KB · Affichages: 47
• friend 2).xls

  49 KB · Affichages: 47
• friend 2).xls

  49 KB · Affichages: 42

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 16 Octobre 2012

• #12

Re : macro détecter mot dans colonne

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

 

Pièces jointes

• friend 2).xls

  53.5 KB · Affichages: 40
• friend 2).xls

  53.5 KB · Affichages: 50
• friend 2).xls

  53.5 KB · Affichages: 46

Dernière édition: 16 Octobre 2012

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 16 Octobre 2012

• #13

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

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 16 Octobre 2012

• #14

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 .

 

Pièces jointes

• friend.xls

  56 KB · Affichages: 46
• friend.xls

  56 KB · Affichages: 40
• friend.xls

  56 KB · Affichages: 35

Vote positif 0 Vote négatif

F

friendxconnect

Guest

• 16 Octobre 2012

• #15

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?

 

Vote positif 0 Vote négatif