Find + copier-coller + comparaison
Résolu/Fermé
gregt73
Messages postés
52
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
21 janvier 2019
-
5 déc. 2016 à 09:56
gregt73 Messages postés 52 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 21 janvier 2019 - 5 déc. 2016 à 15:09
gregt73 Messages postés 52 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 21 janvier 2019 - 5 déc. 2016 à 15:09
A voir également:
- Find + copier-coller + comparaison
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Dessin sms copier coller - Forum Jeux vidéo
- Copier coller formule excel sans décalage ✓ - Forum Bureautique
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
5 déc. 2016 à 12:13
5 déc. 2016 à 12:13
Bonjour
Cette syntaxe n'est jamais sur la même colonne (parfois D, ou G, ou K ou autre selon les lignes).
quelle colonnes concernées au total (début-fin) ?
liste des correspondances ?
au besoin
Dans l’attente
Cette syntaxe n'est jamais sur la même colonne (parfois D, ou G, ou K ou autre selon les lignes).
quelle colonnes concernées au total (début-fin) ?
liste des correspondances ?
au besoin
Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci dans votre message
Dans l’attente
gregt73
Messages postés
52
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
21 janvier 2019
5 déc. 2016 à 12:20
5 déc. 2016 à 12:20
Bonjour,
Merci pour la réponse.
Les colonnes concernées sont entre C et CZ.
Que faut-il comprendre par "liste des correspondances"?
Cordialement,
Merci pour la réponse.
Les colonnes concernées sont entre C et CZ.
Que faut-il comprendre par "liste des correspondances"?
Cordialement,
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
5 déc. 2016 à 13:55
5 déc. 2016 à 13:55
re,
Ex: 1234 signifie "maison"
1212 signifie "travail"
c'est bien une liste de correspondance...
bref !
il y a t'il d'autres correspondance ?
Ex: 1234 signifie "maison"
1212 signifie "travail"
c'est bien une liste de correspondance...
bref !
il y a t'il d'autres correspondance ?
gregt73
Messages postés
52
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
21 janvier 2019
5 déc. 2016 à 15:09
5 déc. 2016 à 15:09
Oulà...
Bref ! Drole de façon de répondre...
Bon, j'ai réussi à faire ce que je voulais même si c'est surement pas super bien codé....
Sub test()
Dim ws As Worksheet
Set ws = Worksheets("onglet1")
Dim ws2 As Worksheet
Set ws2 = Worksheets("onglet2")
Dim lineCnt As Integer
Dim i As Integer
Dim j As Integer
ws.Range("A1").Select
Selection.EntireColumn.Insert
ws.Range("A1").Select
Selection.EntireColumn.Insert
ws.Range("A1").Select
Selection.EntireColumn.Insert
lineCnt = WorksheetFunction.CountA(ws.Range("D:D"))
For i = 1 To lineCnt
ws.Rows(i).Find("toto", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Copy
ws.Range("A" & i).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
Next i
For i = 1 To lineCnt
ws.Range("B" & i) = Right((ws.Range("A" & i)), 3)
Next i
For i = 1 To lineCnt
For j = 2 To 123
If (ws.Range("B" & i) = ws2.Range("A" & j)) Then
ws.Range("C" & i) = ws2.Range("B" & j)
End If
Next j
Next i
End Sub
Bref ! Drole de façon de répondre...
Bon, j'ai réussi à faire ce que je voulais même si c'est surement pas super bien codé....
Sub test()
Dim ws As Worksheet
Set ws = Worksheets("onglet1")
Dim ws2 As Worksheet
Set ws2 = Worksheets("onglet2")
Dim lineCnt As Integer
Dim i As Integer
Dim j As Integer
ws.Range("A1").Select
Selection.EntireColumn.Insert
ws.Range("A1").Select
Selection.EntireColumn.Insert
ws.Range("A1").Select
Selection.EntireColumn.Insert
lineCnt = WorksheetFunction.CountA(ws.Range("D:D"))
For i = 1 To lineCnt
ws.Rows(i).Find("toto", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Copy
ws.Range("A" & i).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
Next i
For i = 1 To lineCnt
ws.Range("B" & i) = Right((ws.Range("A" & i)), 3)
Next i
For i = 1 To lineCnt
For j = 2 To 123
If (ws.Range("B" & i) = ws2.Range("A" & j)) Then
ws.Range("C" & i) = ws2.Range("B" & j)
End If
Next j
Next i
End Sub
