Discussion :

[swissina]

Bonsoir
Actuellement je suis en stage Je suis débutante en vb/vba et je dois fournir un travail à mon opérationnel veuillez m’aider SVP je suis bloquée depuis 3 jours

Le problème :
feuille 1 avec deux colonne A et B
feuille 2 avec les même colonnes A et B

dans la feuille 3 j’ai bouton exécuter et les même colonnes A et B
je souhaite cliquer sur « exécuter » pour que les colonnes A et B de la feuille3 se remplissent avec la combinaison du tableau de la feuille 1 et 2

en gros la feuille1 et la feuille2 contiennent les mêmes données mais les 2 tableaux ne sont pas complet et donc le but est d’avoir un tableau complet contenant ttes les données en combinant tableau feuille1 et tableau feuille2


merci d’avance

[mercatog]

Bonsoir et bienvenue au forum
tu as quoi comme données en A et en B de chaque feuille?
par exemple en feuille 3 tu désire englober toutes les données complètes issues des feuilles 1 t feuille 2?

[swissina]

bonsoir et merci

voila j'ai la feuille1 qui contient un tableau colonne A "serveurs" et colonne B "applications" remplit de données , pareil pour la feuille2

sur la feuille 3 il y a juste le nom des colonnes c-à-dire colonne A "serveurs"et colonne B "applications" que je dois remplir en combinant le tableau( feuille1) et tableau (feuille2) une fois que je clique sur "exécuter" ,"""

[pgz]

Bonsoir.

Je suppose que les titres sont en ligne 1 dans les 3 feuilles. Je suppose également que tu veux concaténer les tableaux, sans regarder s'il y a des doublons à supprimer.

Dans ce cas, tu peux faire

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
22
Sub subSwissina()
Dim i As Long, i3 As Long
 
'première ligne libre dans feuille3
i3 = 2
 
'dernière ligne renseignée du tableau de feuille 1
i = ThisWorkbook.Worksheets(1).Range("A" & Application.Rows.Count).End(xlUp).Row
's'il y a des lignes dans feuille 1, les copier dans 3
If i > 1 Then
    ThisWorkbook.Worksheets(3).Range("A2:B" & i).FormulaLocal = ThisWorkbook.Worksheets(1).Range("A2:B" & i).FormulaLocal
    i3 = i3 + i - 1
End If
 
'dernière ligne renseignée dans la feuille 2
i = ThisWorkbook.Worksheets(2).Range("A" & Application.Rows.Count).End(xlUp).Row
's'il y a des lignes dans feuille 2, les copier dans 3
If i > 1 Then
    ThisWorkbook.Worksheets(3).Range("A" & i3 & ":B" & i3 + i - 2).FormulaLocal = ThisWorkbook.Worksheets(2).Range("A2:B" & i).FormulaLocal
End If
 
End Sub

Cordialement,

PGZ

[swissina]

merci pour ta réponse
mais j'ai juste oublié de signaler que je suis non seulement débutante mais aussi " trop trop débutante "
j'espère que je n'abuse pas de ton aide , mais je ne sais pas comment faire pour que le code marche une fois que je clique sur le bouton "exécuter" de la feuille 1.

[Vadorblanc]

Bonjour
Voici plusieurs façons pour lancer une macro

1 Faire le bouton
Affichage / Formulaire
Affecter : quand clic et ok

2 Faire la macro

3 Clic droit sur le bouton et sélectionner la macro

4 Autre méthode pour lancer la macro
Outils / macro / macro / options / et mettre la lettre associée
Macro mettre le raccourci
Ctrl et appuyer sur w (lettre associée)
Cordialement

5 Autre méthode pour lancer la macro
Alt + F8