Discussion :

[skipeemed]

Bonjour,

J'ai plusieurs cellules dans la colonne B de B45 à B87 dont le contenu commence par "tarte" mais moi je veux changer des données à partir de H88 à H125 de "croissant" à "petit pain"
Donc il faut que je détecte la ligne 87 en question qui contient en début de mot :"tarte" pour que je puisse changer les données de la plage H88:H125. Et tout cela en code VBA dans une macro si c'est possible.

Et Merçi d'avance à tous.

Cdt,
SKIP

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim c As Range
Dim Lig As Long
 
Set c = Sheets("Feuil1").Range("B:B").Find("tarte", lookat:=xlPart, SearchDirection:=xlPrevious)
If Not c Is Nothing Then
    Lig = c.Row
    MsgBox Lig
    Set c = Nothing
End If

[MarcelG]

Bonjour, Bonjour Mercatog et le Forum

Sinon j'avais (à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public Sub Essai()
Dim c As Range, derncel As Range
Application.ScreenUpdating = False
For Each c In Sheets("Feuil1").Range("B1", Range("B" & Rows.Count).End(xlUp))
    If c.Value Like "tarte*" Then Set derncel = c
Next
With derncel
            Range(.Offset(1, 0), .End(xlDown)).Offset(0, 6).Replace What:="tra", Replacement:="pan", LookAt:=xlPart
End With
End Sub

Bonne semaine à tous

[skipeemed]

Bonjour MarcelG,

Tu peux m'expliquer ces lignes de code en détail qu'est ce qu'elles font ou signifient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub Essai()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With derncel
            Range(.Offset(1, 0), .End(xlDown)).Offset(0, 6).Replace What:="tra", Replacement:="pan", LookAt:=xlPart
End With

Cdt,
SKIP

[MarcelG]

Bonjour,

1 - Je déclare une procédure en "Public", c'est à dire exécutable depuis Excel (ALT + F8), sinon je l'aurais déclarée en Private.

2 - La propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating

initiée à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

False

définit le souhait de ne pas voir les exécutions se dérouler. Cette propriété rend le code plus performant.

3 - Progressivement (je ne veux pas répéter derncel. d'où l'instruction With)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(.Offset(1, 0)

Je considère la cellule de la ligne suivante de ma dernière "tarte".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.End(xlDown)

Je considère le champ entier de ma cellule ci-desus jusqu'à la fin de la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Offset(0, 6)

Ce champ défini, je le décale de 0 ligne et 6 colonnes (colonne H) pour lui appliquer la méthode Replace

Cela dit, tu peux /
- Regarder l'aide en ligne (F1) sur chaque mot-clé
- Lire attentivement les différents Tutoriels et/ou Chapitres de la FAQ au sujet du fameux objet "Range".

Au plaisir.

[skipeemed]

Merçi MarcelG, c'est très gentil de ta part.

Cdt,
SKIP