Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boucle IF ou when en macro

  • Initiateur de la discussion Initiateur de la discussion vanvan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

V

vanvan

Guest
Bonjour,

J'ai besoin d'aide de vous pros d'excel et surtt de macros svp.

J'ai deux tableaux dans la meme feuille le premier

1ere ligne 0 | 20
2eme ligne 10 | 32
3..............20 | 2
4..............30 | 5

Et dans le 2eme tableau, j'ai une colonne de 0,1,2,3,4,5,6,, ...,29, 30, et le but est de mettre les valeurs correspondantes devant chaque nombre la valeur correspondante qui se trouve dans le premier tableau:
Ex:
0 | 20
1 | N/A
2 | N/A
3 | N/A
4 | N/A
5 | N/A
6 | N/A
7 | N/A
8 | N/A
9 | N/A
10 | 32
11 | N/A
...
29 | N/A
30 | 32

D'avance merci, j'espere que j'ai bien formulé ma question.

A plus
 
Re : Boucle IF ou when en macro

Bonjour VanVan,
Toutes et tous,

Pas besoin de macro pour cela.
par exemple si le premier tableau est en feuil1!A1:B31 et le deuxième en feuil2 A1:A31 :

=RECHERCHEV(A1;Feuil1!$A$1:$B$31;2;FAUX)

A adapter avec les bonnes références.

A bientôt
 
Re : Boucle IF ou when en macro

Bonjour à tous

Par macro:

Code:
Sub Report()

Dim i As Long
Dim k As Long
Application.ScreenUpdating = False
Range("K1:K31").Clear
For i = 1 To 31
 For k = 1 To 31
   If Cells(k, 6) = Cells(i, 10) And Cells(k, 7) <> "" Then
     Cells(i, 11) = Cells(k, 7)
     Exit For
   End If
 Next
Next
Application.ScreenUpdating = True

End Sub
A adapter à ton cas:
Le premier tableau est en colonne F et G
Le deuxième en colonne J et K

A+
 
Dernière édition:
Re : Boucle IF ou when en macro

Waw, merci bcp!!! vous me sauvez la vie!!!!!! Je suis super content.
Vous etes des dieux!!! Encore merci!!
Bonne continuation
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
782
Réponses
23
Affichages
679
Réponses
3
Affichages
644
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…