copier cellule excel avec condition et macro

[esthetique]

Bonjour à tous,

J’ai besoin copier une cellule (B5) d’ une feuille A dans une feuille B, avec un macro et la condition suivant.

Si dans la feuille A, la cellule (A2) est égale à 1, la cellule B5 doit être copie dans la colonne F, si A2 =2 dans la colonne G et si A3=3 dans la colonne H.

Voilà j'attends de vos nouvelles.

Merci

 

[JBARBE]

Re : copier cellule excel avec condition et macro

Bonjour à tous,

Les cellules dans les colonnes F - G - H ne sont pas spécifiées

 

[esthetique]

Re : copier cellule excel avec condition et macro

Voilà

Copier une cellule (B5) d’ une feuille A dans une feuille B, avec un macro et la condition suivant.

Si dans la feuille A, la cellule (A2) est égale à 1, la cellule B5 doit être copie dans la colonne F (Cellule F2), si A2 =2 dans la colonne G (Cellule G2) et si A3=3 dans la colonne H (Cellule H2).

 

[JBARBE]

Re : copier cellule excel avec condition et macro

Peut-être ceci :

Option Explicit

Sub essai()
 If Sheets("A").Range("A2") = 1 Then
 Sheets("A").Range("B5").Copy Sheets("B").Range("F2")
 ElseIf Sheets("A").Range("A2") = 2 Then
 Sheets("A").Range("B5").Copy Sheets("B").Range("G2")
 ElseIf Sheets("A").Range("A2") = 3 Then
 Sheets("A").Range("B5").Copy Sheets("B").Range("H2")
 End If
End Sub

A NOTER que j'ai mis range A2 = 3 au lieu de range A3 = 3

 

[esthetique]

Re : copier cellule excel avec condition et macro

super....Merci