Bonjour à tous,
Je débute et j'ai pour objectifs de travaillé un fichier excel d'une volumétrie importante.
J'ai pu lire sur votre aide (soit dit en passant fort utile) que l'on pouvait scripté en VB dans les macros pour faire certain job.
Première question ais je bien compris .
Deuxième question j'ai écrit un bout de code qui si j'ai bien compris le tutoriel me permettrais de Comparer chaque Cellule de la colonne A de ma feuille1 avec toutes les cellules de ma colonne A de ma feuille2. Si on ne trouve pas de corrélation entre Cellule (i,A) de la feuille1 avec une des valeurs de la Colonne A de la feuille2, alors j'écris le contenu de la Feuille1.Cells(i,A) dans la feuille 4.
Et j'incrémente le tout.
A dire comme çà , celà semble facile, personnellement je n'y arrive pas. Je sollicite votre précieuse aide parce que la je sèche
Dans la logique le code serait:
Merci encore de votre aide
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
23
24
25
26
27
28
29
30
31
32
33
34 Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim posteAD As Variant Dim PosteAS As Variant Dim Resultat As Variant Dim sheetAD As Excel.Worksheet Dim sheetAS As Excel.Worksheet Dim sheetVi As Excel.Worksheet Dim sheetRe As Excel.Worksheet Dim appExcel As Excel.Application Dim sheet As Excel.Worksheet 'Récupération de la feuille s'appellant Feuille1 Set sheetAD = appExcel.ActiveWorkbook.Sheets("Feuille1") 'Récupération de la feuille s'appellant Feuille2 Set sheetAS = appExcel.ActiveWorkbook.Sheets("Feuille2") 'Récupération de la feuille s'appellant Feuille3 Set sheetVi = appExcel.ActiveWorkbook.Sheets("Feuille3") 'Récupération de la feuille s'appellant Resultat Set sheetRe = appExcel.ActiveWorkbook.Sheets("Resultat") i = 1 j = 1 For i = 1 To 52345 For j = 1 To 52345 If Not sheetAD.ceels(i, A) Like sheetAS.Cells(j, A) Then sheetRe.Cells(i, A) = sheetAD.ceels(i, A) Next j 'Peut être faut il un endif ? Next i
Partager