SI et RECHERCHEV dans VBA
Résolu/Fermé
farreneit
Messages postés
282
Date d'inscription
jeudi 5 juillet 2012
Statut
Membre
Dernière intervention
13 janvier 2023
-
3 janv. 2021 à 21:38
farreneit Messages postés 282 Date d'inscription jeudi 5 juillet 2012 Statut Membre Dernière intervention 13 janvier 2023 - 4 janv. 2021 à 13:04
farreneit Messages postés 282 Date d'inscription jeudi 5 juillet 2012 Statut Membre Dernière intervention 13 janvier 2023 - 4 janv. 2021 à 13:04
A voir également:
- SI et RECHERCHEV dans VBA
- Recherchev somme plusieurs lignes ✓ - Forum Excel
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum Programmation
1 réponse
yg_be
Messages postés
22719
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 avril 2024
1 476
3 janv. 2021 à 23:46
3 janv. 2021 à 23:46
bonjour,
un exemple:
un exemple:
Sub frnt()
Dim source As Range, dest As Range, dico As Range, tmp As Range, val As Range
Set source = ThisWorkbook.Sheets("Sheet1").[d8]
Set dico = ThisWorkbook.Sheets("Sheet2").[e:e]
Set tmp = Intersect(ThisWorkbook.Sheets("Sheet2").UsedRange, dico)
Set dest = ThisWorkbook.Sheets("Sheet2").Cells(tmp.Row + tmp.Rows.Count, "e").End(xlUp).Offset(1)
For Each val In source
If dico.Find(val) Is Nothing Then
dest = val
Set dest = dest.Offset(1)
End If
Next val
End Sub
Modifié le 4 janv. 2021 à 09:53
Je ne sais pas trop pourquoi mais cela fonctionne ahah.
Admettons que en dessous de la cellule D8 je possède un autre mot lié à celui en D8. Il y a t'il une méthode facile pour que cette valeur soit ajoutée à droite de la cellule où est ajoutée le nouveau mot (à droite de dest) ?
Voici le fichier modifié : https://wetransfer.com/downloads/fcc1dd2879686aaa7bfc8cc82da4ab9f20210104085319/b11310
Si c'est possible d'avoir une rapide explication du code se serait top !
Merci d'avance !
4 janv. 2021 à 10:24
as-tu une question à propos du code?
comprends-tu le langage VBA?
4 janv. 2021 à 12:00
Je ne suis pas un expert en VBA, j'esaye de m'en sortir avec ma logique, mes recherches et mes bases dans les autres languages de programmation.
Si je décortique ton exemple :
--> Création de variables
Set source = ThisWorkbook.Sheets("Sheet1").[d8]--> je donne à la variable "source" la valeur de D8Set dico = ThisWorkbook.Sheets("Sheet2").[e:e]--> je donne à dico la valeur de la colonne E (je ne savais pas qu'il était possible de faire rentrer une plage de donnée dans une variable)Set tmp = Intersect(ThisWorkbook.Sheets("Sheet2").UsedRange, dico)--> c'est la que je me perds.Set dest = ThisWorkbook.Sheets("Sheet2").Cells(tmp.Row + tmp.Rows.Count, "e").End(xlUp).Offset(1)--> faire que la variable dest soit affichée en dessous du tableauEn réalité c'est aussi cette ligne qui me pose problème.
Merci
Modifié le 4 janv. 2021 à 12:57
l'intuition ne remplace pas la connaissance.
tu devrais étudier:
- ce que fait
- ce qu'est une variable de type
- ce que fait
- ce que fait
4 janv. 2021 à 13:04
Dans une grande partie des cas j'arrive à m'en sortir, toutefois lorsqu'il y a trop de paramètres que je ne maitrise pas cela ne fonctionne plus ..
Encore merci pour ton aide, je vais me renseigner sur ces différents sujets lorsque j'aurais un moment.
Bien à toi !