Discussion :

[Oceaneantoine]

Bonjour à tous,

Je suis une grande novice du VBA, mais j'aimerai l'utiliser car je trouve que c'est tip top.

J'ai un problème : (naturellement)
J'aimerai savoir s'il est possible en VBA de traduire ceci :

SI une cellule de ma feuil3 (colonne H) est identique à une cellule de ma feuil1 (colonne V) alors copier la cellule de la feuil1 (qui ce trouve dans la colonne I) de la ligne qui correspond au résultat identique sur la cellule qui correspond de ma feuil3 en colonne B.

Je sais pas si je suis bien claire. Si nécessaire je vous met un fichier en copie.

Ah, je tiens a préciser que j'aime comprendre ce que je fais. Je ne demande pas une solution toute faite. Juste quelqu'un qui m'explique comment je peux faire, et pourquoi il faut mettre ceci plutôt que cela etc

Merci.

[Oceaneantoine]

S'il vous plait quelqu'un pour m'aider ??

[mjpmjp]

bonjour,

pour les feuilles / onglets / sheets /....

Sheets("NomDeOnglet_DansBarreOnglet")

pour les cellule / range / case / ....

version pratique...qui ce complique avec "AA, AB,..) :
Range("A4").value ---> valeur de A4
Range("A" & n).value ---> valeur de A4 si n = 4
Range(AdresseDeCellule).value ---> valeur de A4 si la variable / constante : AdresseDeCellule = "A4"

autre version...attention Colonne / Ligne INVERSE -> Ligne / Colonne
Cells(Ligne,Colonne).value ---> valeur de A4 si Ligne = 4 et Colonne = 1 -> "A"
Cells(n,1).value ---> valeur de A4 si n=4 -> ligne
Cells(4,1).value ---> valeur de A4


@+JP

[mjpmjp]

re,

SI une cellule de ma feuil3 (colonne H) est identique à une cellule de ma feuil1 (colonne V) alors copier la cellule de la feuil1 (qui ce trouve dans la colonne I) de la ligne qui correspond au résultat identique sur la cellule qui correspond de ma feuil3 en colonne B.

SI une cellule de ma feuil3 (colonne H) est identique à une cellule de ma feuil1 (colonne V)

if Sheets("feuil3").Range("H" & Ligne).value = Sheets("feuil1").Range("V" & Ligne).value Then

alors copier la cellule de la feuil1 (qui ce trouve dans la colonne I)

ValeurACopier = Sheets("feuil1").Range("I" & Ligne).value

@+JP

[BENNASR]

bonsoir

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
Sub copier()
 
Dim Dernligne As Long
With Sheets("feuil1")
Tablo = .Range("A2", "V" & .Range("V" & .Rows.Count).End(xlUp).Row)
End With
 
With Sheets("feuil3")
Dernligne = .Range("A" & Rows.Count).End(xlUp).Row
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        For j = 2 To Dernligne
             If .Cells(j, 8) = Tablo(i, 22) Then
                .Cells(j, 2) = Tablo(i, 9)
 
             End If
        Next j
  Next i
End With
End Sub

[Oceaneantoine]

Merci beaucoup !

Le code a l'air de marché ! BENNASR

Mais j'aimerai comprendre comment avez vous fait pour écrire ce programme ?

mjpmjp ça a l'air tellement simple comme vous l’écrivez ! je comprend bien ce que vous m'expliquez.
J'avais essayé :
If "feuil3".cell.Value (H1:H &lastrow) = "Feuil1".cell.Value (V1:V&lastrow) Then

Et ca me marchais pas

Merci pour votre aide.

[BENNASR]

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
Sub copier()
 
Dim Dernligne As Long 
With Sheets("feuil1")
Tablo = .Range("A2", "V" & .Range("V" & .Rows.Count).End(xlUp).Row) ' ici on déclare un tableau dans la feuille 1 qui commence de la cellule A2 jusqu'au dernière cellule non vide de la colonne V
End With
 
With Sheets("feuil3")
Dernligne = .Range("A" & Rows.Count).End(xlUp).Row ' ici pour chercher la dernière cellule non vide de la colonne A de la feuille 3
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        For j = 2 To Dernligne ' commence la recherche de 2 à la dernière cellule non vide
             If .Cells(j, 8) = Tablo(i, 22) Then ' si la valeur de la cellule h (puisque la colonne h est de rang 8) égal à la cellule dans la colonne V du tableau déja définie alors
                .Cells(j, 2) = Tablo(i, 9) 'la celleule B de la feuil 3 = à la cellule 9 du tableau
 
             End If
        Next j 
  Next i
End With
End Sub

[Oceaneantoine]

Merci beaucoup BENNASR