Remplacer du texte dans une colonne

Bonjour à tous,
Voici plusieurs jours que je cherche, lis des tutoriels, notamment sur ce site, mais, étant débutant, j'ai du mal à trouver la solution à mon problème... que je vous expose.

Je n'ai jusqu'alors jamais trouvé de logiciel de budget personnel qui me convienne, ce n'est que tout récemment que je suis parvenu avec excel à réaliser quelque chose qui ressemble à ce que j'attendais.

Dans mon tableau(d'un nombre de ligne en constante augmentation), pour chaque opération, lorsque je fais mes comptes, je pointe les opérations prises en comptes par ma banque afin de retrouver le même solde qui figure sur mon relevé.

Dans ma colonne de "pointage" j'ai donc des cellules qui sont marquées "pointé" et d'autres qui sont pour l'instant vide.

Je souhaiterai pouvoir remplacer toutes les cellules "pointées" de la colonne (F) par le mot "Rapproché"

Désopilant de simplicité n'est ce pas ?... je cherche avec des For, des if, des fonctions "dernière lignes" mais je n'arrive pas à organiser tout cela...

Merci pour votre aide

ps: J'ai bien vu qu'il y avait des solutions approchantes de proposées, mais je ne parviens pas à les adapter à ma situation.

Bonjour,

Si j'ai bien compris, c'est une opération à faire une seule fois. Donc, c'est inutile d'utiliser VBA pour cela. Directement de l'interface d'Excel, soit dans un menu quelconque (j'ai oublié lequel), pour les "vieux Excel", soit au bout du ruban "Accueil", pour les "jeunes Excel", il y a le bouton "Rechercher" avec son "sous-bouton" remplacer. Sinon, cela va prendre plus de détails.

Je suppose qu'il doit y avoir une réponse tout à fait logique à la question que je vais poser mais je la pose quand même :
Pourquoi créer une macro pour faire quelque chose qui ne prend que quelques secondes à faire à la main ?

Tu sélectionnes ta colonne.
Ruban Accueil > Recherche et sélectionner > Remplacer
Recherche = pointées
Remplacer par = Rapproché
Remplacer tout

A moins que l'idée soit de l'intégrer à un processus plus vaste.

Bonjour,

Je trouve plus facile de cliquer sur un bouton, cela m'évite de retaper le mot et c'est plus convivial si en plus je crée un userform pour demander confirmation de l'action à effectuer (du reste, je n'avais même pas fait attention au fait que la fonction rechercher-remplacer existait sur excel... pourtant je l'utilise sur word !!!)

je progresse dans mes recherches puisque j'arrive maintenant à remplacer la valeur sur la première ligne de mon tableau... ça doit être un souci de boucle !

voici ou j'en suis...

Sub rapprocher()

' Déclaration des variables
Dim x As Integer, y As String, z As String, dl As Integer

'Valeur des variables
x = 2 ' deuxième ligne du tableau
y = "Pointé"
z = "Rapproché"
dl = Range("A1").End(xlDown).Row 'numéro de dernière ligne

'Boucle
For x = x To dl

'Condition si
If Cells(x, 12).Value = y Then
Cells(x, 12).Value = z

End If

Next



End Sub

Merci beaucoup pour votre aide.

Citation:

---

Envoyé par Phorkys

si en plus je crée un userform pour demander confirmation de l'action à effectuer

---

Si c'est juste pour une confirmation, un MsgBox sera bien plus simple.

Citation:

---

je progresse dans mes recherches puisque j'arrive maintenant à remplacer la valeur sur la première ligne de mon tableau... ça doit être un souci de boucle !

---

Je ne comprends pas pourquoi tu te complique la vie à passer par les Value de chaque case.

Pourquoi ne pas mettre en macro la méthode que je t'ai donné en manuel ?
Un coup d'enregistrement automatique et 90% du travail sera fait.
Pour peu que tu étudies un peu de près ce qui est généré, tu peux résumer ça à une seule ligne (y compris le test sur la MsgBox)

Citation:

---

Code:

---

dl = Range("A1").End(xlDown).Row 'numéro de dernière ligne

---

---

Je te conseille plutôt

Code:

---

dl = Cells(1,Rows.Count).End(xlUp).Row

---

Ce code part de la dernière ligne possible (Rows) pour lancer la recherche vers le haut.
L'avantage, c'est qu'il trouve vraiment la dernière ligne alors que ta commande s'arrête à la première cellule vide.

Citation:

---

Code:

---

For x = x To dl

---

---

Houla !!! 8O Surtout pas !
"x = x" dans une boucle For to, c'est à éviter.

Remplace ton second "x" par le numéro de ta première ligne de recherche.

Waou, c'est trop fort, effectivement, il suffisait d'enregistrer une macro...

ça marche, merci beaucoup.

Merci aussi pour les conseils de rédaction de code, est-il besoin de le dire, je crois que cela se voie que je débute... mais je trouve ça sympa.
Pour autant, je crois qu'il va falloir que je lise un maximum de tutoriels, sinon je risque de vous lasser avec mes problèmes de débutants.
J'ai vu qu'il existait un bouquin " le VBA pour les nuls" quelqu'un a t'il un avis sur ces ouvrages ?

Je vais malgré tout essayer de voir si j'arrive à finaliser mon code avec vos conseils, histoire de progresser un peu.

Merci à vous.

Citation:

---

Envoyé par Phorkys

Waou, c'est trop fort, effectivement, il suffisait d'enregistrer une macro...

---

Pense quand même à modifier la limite de la zone modifiée (voir la ligne de code que j'ai écris sur la propriété End).

Citation:

---

Merci aussi pour les conseils de rédaction de code, est-il besoin de le dire, je crois que cela se voie que je débute... mais je trouve ça sympa.

---

Moi, ce que je trouve sympa, c'est que, contrairement à d'autre, tu ne prennes pas cette inexpérience comme une fatalité et que tu montres une réelle volonté de progresser. :ccool:

Citation:

---

Pour autant, je crois qu'il va falloir que je lise un maximum de tutoriels.

---

N'oublie pas aussi que l'aide VBA Excel est très bien faite, en particulier les pages qui listent les membres d'objets.

En consultant les membres d'objets comme Application, Workbook, Worksheet et Range, tu peux progresser très vite.
N'oublie pas aussi de bien regarder l'aide sur les structures comme "For to", "For Each", If, Select Case, While, Loop, etc.

L'enregistreur automatique de macro peut aussi t'aider à trouver la bonne voie mais n'applique jamais le code qu'il fournit sans l'étudier et le comprendre.