Discussion :

[ayms75]

Bonjour à tous,

Je rencontre un petit problème sur une macro qui consiste à copier et coller des valeurs d'un onglet à un autre.
En ce qui concerne ce morceau

Code :

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

sh3.Range("b3") = sh1.Range("d3")

ça copie que des A ou des V et je voudrais que les A se convertissent en Achat et les V en vente mais pour cette ligne je colle plusieurs cellule avec les & donc il ne faudrait pas qu'à chaque fois qu'il y est un A ça se convertisse en Achat.

Pouvez vous m'aider svp car j'ai aucune idée sur ce code

Code :

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

1
2
3
4
5
6
7
Sub Validation()
sh3.Range("a3") = sh1.Range("a3")
        sh3.Range("b3") = sh1.Range("d3") & " " & sh1.Range("g3") & " " & sh1.Range("j3") & " " & "à" & " " & sh1.Range("h3") & " " & sh1.Range("k3")
 
        sh3.Range("c3") = sh1.Range("u3")
 
End Sub

[parmi]

Bonjour,

Ce serait plus simple si on savait où sont ces A et V à convertir.

[ayms75]

Ah oui désolé j'ai oublié de préciser, ils sont là :

Code :

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

sh1.Range("a3")

[parmi]

De ce que je comprends,

Code :

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

1
2
3
4
5
If sh1.Range("a3") = "A" Then
   sh3.Range("a3") = "Achat"
ElseIf sh1.Range("a3") = "V" Then
   sh3.Range("a3") = "Vente"
End If

[ayms75]

Ok merci, ce code me plait bien et je le place où dans mon code? car je peux pas le remplacer à la place de

Code :

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

sh3.Range("b3") = sh1.Range("d3")

[parmi]

Comme tu dis que les A et les V sont en A3, ça ne concerne pas les autres cellules, de ce que je comprends.
N'oublie pas que je ne vois pas ton fichier...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Validation()
 
   If sh1.Range("a3") = "A" Then
      sh3.Range("a3") = "Achat"
   ElseIf sh1.Range("a3") = "V" Then
      sh3.Range("a3") = "Vente"
   End If
 
   sh3.Range("b3") = sh1.Range("d3") & " " & sh1.Range("g3") & " " & sh1.Range("j3") & " " & "à" & " " & sh1.Range("h3") & " " & sh1.Range("k3")
 
   sh3.Range("c3") = sh1.Range("u3")
 
End Sub