Recherche et copier cellule en dessous de celle contenant texte
Résolu/Fermé
Acc79
Messages postés
3
Date d'inscription
lundi 25 avril 2016
Statut
Membre
Dernière intervention
25 avril 2016
-
25 avril 2016 à 10:44
Acc79 Messages postés 3 Date d'inscription lundi 25 avril 2016 Statut Membre Dernière intervention 25 avril 2016 - 25 avril 2016 à 12:20
Acc79 Messages postés 3 Date d'inscription lundi 25 avril 2016 Statut Membre Dernière intervention 25 avril 2016 - 25 avril 2016 à 12:20
A voir également:
- Recherche et copier cellule en dessous de celle contenant texte
- Excel cellule couleur si condition texte - Guide
- Copier texte pdf - Guide
- Copier une vidéo youtube - Guide
- Recherche musique - Guide
- Corinne copie un texte sur le web et le colle dans un document avec l'option "texte non formaté" (aussi appelée "texte sans mise en forme"). qu'est-ce qui est conservé ? - Forum Bureautique
2 réponses
PHILOU10120
Messages postés
6368
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
22 avril 2024
796
25 avril 2016 à 10:56
25 avril 2016 à 10:56
Bonjour Acc79
Essayer cette formule en B3 et la tirer vers le bas jusqu'à la ligne 8
=SIERREUR(RECHERCHEH(A3;Feuil2!$A$3:$D$4;2;FAUX);"")
Essayer cette formule en B3 et la tirer vers le bas jusqu'à la ligne 8
=SIERREUR(RECHERCHEH(A3;Feuil2!$A$3:$D$4;2;FAUX);"")
Bonjour,
En VBA quelques lignes qui répondent à votre demande :
Option Explicit
Sub résultat()
Dim I As Variant, J As Variant
Dim recherche As String
Dim valeur As Integer
Sheets(1).Activate
Range("B3:B8").ClearContents
Sheets(2).Activate
For I = 2 To Cells(3, Cells.Columns.Count).End(xlToLeft).Column
recherche = Cells(3, I).Value
valeur = Cells(4, I).Value
Sheets(1).Activate
For J = 3 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(J, 1) = recherche Then
Cells(J, 2) = valeur
Exit For
End If
Next J
Sheets(2).Activate
Next I
Sheets(1).Activate
End Sub
En VBA quelques lignes qui répondent à votre demande :
Option Explicit
Sub résultat()
Dim I As Variant, J As Variant
Dim recherche As String
Dim valeur As Integer
Sheets(1).Activate
Range("B3:B8").ClearContents
Sheets(2).Activate
For I = 2 To Cells(3, Cells.Columns.Count).End(xlToLeft).Column
recherche = Cells(3, I).Value
valeur = Cells(4, I).Value
Sheets(1).Activate
For J = 3 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(J, 1) = recherche Then
Cells(J, 2) = valeur
Exit For
End If
Next J
Sheets(2).Activate
Next I
Sheets(1).Activate
End Sub
Acc79
Messages postés
3
Date d'inscription
lundi 25 avril 2016
Statut
Membre
Dernière intervention
25 avril 2016
25 avril 2016 à 12:20
25 avril 2016 à 12:20
Merci beaucoup Stif.
Bonne journée à tous
Bonne journée à tous
25 avril 2016 à 11:13
Merci