Obtenir une colonne à partir de règles appliquées sur d'autres
Résolu
Ilm17
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
-
Ilm17 Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
Ilm17 Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais de deux colonne l'une avec (A, A, A, A,) par exemple sur une feuille T1 et l'autre avec (A,A) sur une feuille T2 obtenir une troisième (A,A,A,A,A,A,A,A) sur une feuille T3.
Ce qui veut dire que toute similitude entre un élément de la première colonne et une autre de la deuxième, donne ce même élément dans la troisième colonne.
Je suis cependant une débutant VBA. Avec le code ci dessous, j'ai soit une code erreur '424' ou mon code qui plante à chaque execution:
Set T1 = ActiveWorkbook.Worksheets("T1")
Set T2 = Worksheets("T2")
Set T3 = Worksheets("T3")
Dim i00i As Integer, n As Integer, i As Integer, j As Integer
Dim ori00(1 To 10000, 1)
i00i = 0
n = 0
n = n + 1
i00i = i00i + 1
Do While T2.Cells(n, 1) <> 0
ori00(i00i, 1).Value = T2.Cells(i00i, 1).Value
Loop
cp = 0
i = 0
i = i + 1
Do While T1.Cells(i, 1) <> ""
If T1.Cells(i, 1).Value = T2.Cells(i00i, 1).Value Then
cp = cp + 1 And T2.Cells(i00i, 1).Value = A
End If
Loop
Do While j < cp
T3.Cells(j, 1).Value = A
Loop
Je voudrais de deux colonne l'une avec (A, A, A, A,) par exemple sur une feuille T1 et l'autre avec (A,A) sur une feuille T2 obtenir une troisième (A,A,A,A,A,A,A,A) sur une feuille T3.
Ce qui veut dire que toute similitude entre un élément de la première colonne et une autre de la deuxième, donne ce même élément dans la troisième colonne.
Je suis cependant une débutant VBA. Avec le code ci dessous, j'ai soit une code erreur '424' ou mon code qui plante à chaque execution:
Set T1 = ActiveWorkbook.Worksheets("T1")
Set T2 = Worksheets("T2")
Set T3 = Worksheets("T3")
Dim i00i As Integer, n As Integer, i As Integer, j As Integer
Dim ori00(1 To 10000, 1)
i00i = 0
n = 0
n = n + 1
i00i = i00i + 1
Do While T2.Cells(n, 1) <> 0
ori00(i00i, 1).Value = T2.Cells(i00i, 1).Value
Loop
cp = 0
i = 0
i = i + 1
Do While T1.Cells(i, 1) <> ""
If T1.Cells(i, 1).Value = T2.Cells(i00i, 1).Value Then
cp = cp + 1 And T2.Cells(i00i, 1).Value = A
End If
Loop
Do While j < cp
T3.Cells(j, 1).Value = A
Loop
A voir également:
- Obtenir une colonne à partir de règles appliquées sur d'autres
- Déplacer une colonne excel - Guide
- Regle sur telephone - Guide
- Comment trier une colonne sur excel - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
