Discussion :

[zeus1774]

Bonjour à tous,

Voila je n'ai jamais fais de macro, mais j'ai besoin d'en créé une:
J'ai un tableaux Excel de +/- 10.000 lignes et +/- 50 colonnes.
Dans la colonne b il y a +/- 60 phrases n'excédant pas plus de 10 mots chacune.
J'aimerais que si il y a tel phrase en colonne B , alors en colonne D une autre phrase devra apparaître.
les 60 phrases auront chacune leur réponse respective.

merci d'avance

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
With Sheets("Feuil1")
For i = 2 to .range("B2").end(xldown).row
Select case .cells(i,2)
Case "Tellephrase"
.cells(i,4)="Telle Reponse"
Case "Telleautre"
.cells(i,4)="Telle Reponse2"
....
End Select
Next i
End With
End Sub

Amuse toi à recopier tes phrases.... Si la casse joue tu peux faire des Ucase et si les espaces comptent des Trim

[zeus1774]

Merci pour votre réponse,

Mais pour moi c'est un peu du chinois lol.

Mon fichier Excel se nomme "tableau pour publipostage.xlsm"
La feuille se nomme "Fichier Publipostage"
La colonne ou se trouve les phrases source est "Q"
La colonne ou les nouvelles phrases devront être est "CT"

Merci

[pastis.vi]

Voilà le code adapté avec quelques explications qui t'aideront... retiens les c'est utile

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub toto()
 
With Workbook("tableau pour publipostage.xlsm").Sheets("Fichier Publipostage") 'le with sert à ne pas répeter les workbook, sheets...
    For i = 2 To .Range("B2").End(xlDown).Row                                  'chaque . que tu rencontres devant un Range, Sheets ou Cells indique que l'on place le contenu du "with" devant
        Select Case .Cells(i, 17)                                              'i correspond à la ligne et le 17 correspond au numéro de colonne: ici Q
            Case "Tellephrase"                                                 'tu dois lister toutes les phrases que tu trouveras dans ta colonne Q: à chaque phrase il faut un "Case..."
            .Cells(i, 98) = "Telle Reponse"                                    '"Cells" permet de situer une cellule par sa ligne et sa colonne: Cells(ligne, colonne)
            Case "Telleautre"
            .Cells(i, 98) = "Telle Reponse2"                                   'le 98 correspond à la colonne CT, la colonne destination de tes réponses
            '....
        End Select
    Next i                                                                     '"Next i" fait une itération de la boucle For en incrémentant i
End With
 
End Sub

[EngueEngue]

Merci pastis

[Invité]

Bonjour, test ça

[parmi]

Bonjour,

Est-ce nécessaire de passer par une macro ?
Si tu avais toutes tes phrases dans 2 colonnes d'une autre feuille, tu pourrais utiliser une RechercheV simplement...

[EngueEngue]

Bonjour,

Est-ce nécessaire de passer par une macro ?
Si tu avais toutes tes phrases dans 2 colonnes d'une autre feuille, tu pourrais utiliser une RechercheV simplement...

10.000 lignes... 10 000 recherchesV ? 100 megas le fichier!

[parmi]

La formule de RechercheV peut être inscrite avec une seule ligne de code (ou manuellement), puis copiée en valeur si nécessaire.

[EngueEngue]

D'où l'intérêt de la Macro CQFD par contre la fonction de rdurupt est tip top

[parmi]

Personnellement, je n'aime pas les fonctions personnalisées parce qu'elles ne fonctionnent pas toujours bien (pas de rafraichissement, à l'occasion) même avec Volatil.

Mais bon, ça demeure un choix personnel...

[casefayere]

Bonsoir,

Une autre idée, en passant par des tableaux, bien que la proposition de rdurupt soit séduisante. J'ai tenu compte de ce qu'a précisé zeus1774 :

La feuille se nomme "Fichier Publipostage"
La colonne ou se trouve les phrases source est "Q"
La colonne ou les nouvelles phrases devront être est "CT"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Option Base 1
Sub texte_cherché()
Dim TbTexte, x As Long, y As Integer, mot As String, phrase, placer()
mot = InputBox("Quel mot cherché ?", "Mot D'apres", "les")
With Sheets("Fichier Publipostage")
  x = .Range("Q" & .Rows.Count).End(xlUp).Row
  TbTexte = .Range("Q2:Q" & x)
  ReDim placer(1 To x)
  For x = 1 To UBound(TbTexte)
    phrase = Split(TbTexte(x, 1), " ")
    For y = 0 To UBound(phrase)
      If phrase(y) = mot Then
        placer(x) = placer(x) & " " & phrase(y + 1)
      End If
    Next y
  Next x
  .Range("CT2:CT" & UBound(placer)) = WorksheetFunction.Transpose(placer)
End With
 
 End Sub

Bien sur, ce n'est qu'une idée étant donné que je ne connais pas quelles sont les phrases recherchées, je mets donc en résultat le mot suivant le mot recherché, c'est donc à adapter