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

[laetitia]

bonjour swissina mercatog pgz Vadorblanc le forum une autre methode code de ton bouton on peut le cree par boite a outils controles click sur affichage tu selectionne visual basic donc barre outils visual basic tu selectionne un bouton commandbutton1 visualer le code par click droit code du bouton tu mets le code... dans boite a outils controles tu as un bouton mode creation
en passant la souris dessus tu vas le trouver puis click deactiver mode creation le bouton est actif c'est tout

exemple dans ton cas !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    Sheets(1).Range("a2:b" & Cells(Rows.Count, 2).End(xlUp).Row).Copy _
   Destination:=Sheets(3).[a2]
   Sheets(2).Range("a2:b" & Cells(Rows.Count, 2).End(xlUp).Row).Copy _
   Destination:=Sheets(3).Cells(Rows.Count, 1).End(xlUp)(2)
End Sub