J'ai de nouveau besoin d'aide:
Je cherche à rechercher dans une colonne (A) un texte que l'on retrouvrais dans une liste de mot en "index!A2:A10" et le remplacer par ce qu'il y aurais en "index!B2:B10" (toujours remplacer A2 par B2, B2 par B3...)
•>Fredox
Oui c'est possible
1) Il suffit pour commencer de chercher dans les archives du forum
(comme le conseille judicieusement la charte du forum)
2) Dans cette même charte (O surprise ), un second conseil qui suivi accèlère grandement la résolution de la question: téléverser un petit classeur Exemple.
Oui, ça c'est fait, impec. Merci
Le problème (pour moi) c'est qu'il faut que je clique manuellement sur C2, puis lance la macro qui fait son effet. Ensuite je sélectionne C3 puis bouton, C4 puis bouton... pas possible d'automatiser jusqu’à dernière_ligne de C ?
J’essaie de bricoler avec For X = 2 to dernière_ligne, mais je n'y arrive pas.
•>Fredox
C'était pas compliqué à adapter, non ?
Code à mettre dans le code de Feuil1
(et pas dans un module standard)
VB:
Private Sub Worksheet_Change(ByVal T As Range)
If T.Row = 1 Then Exit Sub
If Not Intersect(T, [C:C]) Is Nothing Then
X = Application.VLookup(T, [BAZ], 2, 0)
If Not IsError(X) Then T(1, 2) = X
End If
End Sub
C'est quasiment cela !
Une requette, est-il possible de la mettre dans une Sub et non une Private Sub ? C'est pour faire du traitement de masse, non de la saisie manuel.
Bonjour, Sur une plage ("A1:A200"), j'aimerais ajouter en ("B1:B200") un "x" si la cellule A comprend une saisie. Je pense qu'il faut trouver la derniere ligne contenant un contenu via derniere_ligne = Feuille.Cells(Rows.Count, 1).End(xlUp).Row Ensuite, comment ajouter mon "x" ? Merci
Oui, remplacer sur la zone un texte X par un Texte Y, je vais pouvoir le faire.
En revanche, controler sir le texte X est compris dans la BAZ (en C) et le remplacer par le texte Y (en D), je ne suis pas capable de le faire.
Cela me permettrai de travailler sur une liste de mots importante.