XL 2013 Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

Re : Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

Bonjour à tous,

Holà ! que cela à l'air compliqué pour effectuer une seule opération (pas avoir totalement compris) !

Ya t-il pas plus simple !!!

Bonne journée !

Re : Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

bonjour Jawst
bienvenue
voilà une possibilité

Sub Macro1()
Dim Cel as Range

Set cel = Feuil1.[B8:M8].Find("ok", LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
Feuil1.Cells(3, cel.Column - 2) = "" 'graph
Feuil1.Cells(4, cel.Column - 1) = Feuil3.Cells(21, cel.Column - 1)
End If

'Range("B13").Select
'Range("B13").Clear
'Range("C13").Copy
'Range("C14").Select
'ActiveSheet.Paste
End Sub

Cliquez pour agrandir...

Re : Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

Salut JBARBE,

surement que si mais je ne sais pas trop comment faire autrement

si tu veux le but de la manœuvre est que lorsqu'on change de mois, le tableau qui sert à mettre en forme le graphique se mette à jour.
donc imaginons que nous somme le 1er mai, ca va donc mettre à jour les résultats d'avril (on à pas encore fait ceux de mai, logique)

donc pour ca:
- supprimer la prévision du mois de mars (forecast)
- coller dans avril (ligne WC cum) le résultat réalisé (qui est dans la cellule "WC cum" du mois d'avril dans la page "calcul pour graphes")

et si on arrive au 1er juin ca fais pareil mais en supprimant la prévision du mois de avril et en mettant le résultat réalisé du moi de mai
etc... au fur et à mesure des mois

si tu as une idée de comment faire ça simplement je veux bien ^^

Jawst

Re : Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

bonjour Jbarbe
Jawst lire post #3,svp

Re : Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

bonjour, désolé pour ce retard de réponse mais je ne trouvais plus mon mot de passe --'

j'ai essayé ton code mais ca ne fais pas ce que j'attend.
peut tu me l'expliquer stp

Jawst

Re : Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

bonjour

touche fonction F8 pour exécuter le code pas à pas

Sub Macro1()
Dim c As Byte
'trouve ok en F8 colonne mai
Set cel = Feuil1.[B8:M8].Find("ok", LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
c = cel.Column
Feuil1.Cells(3, c - 2) = "" 'efface la cellule D3,mars ligne forecast
'avril de graph,colonne E
Feuil1.Cells(4, c - 1) = Feuil3.Cells(21, c - 1) '21 ligne wc cum de Calcul pour graphes
End If

End Sub

Cliquez pour agrandir...

Re : Boucle pour rechercher un mot sur une ligne et sélectionner la cellule

ca marche super bien merci beaucoup