Discussion :

[charlieee]

Bonjour,
Je suis une novice en macro et vous allez vite le voir.
Je souhaite numériser un document existant dans mon travail.
Dans ma macro que je souhaite créer je voudrais que ma macro soit lié à un bouton "OK" que lorsque l'on clique dessus la valeur qui se trouve en A3 aille en E3 et que la valeur en A3 se supprime.
Mon début de macro est la suivante

Code :

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

1
2
3
4
Dim CC As Range
 
For Each CC In Range ("B3:B30")
    If CC.Value = "OK" Then

Pouvez-vous m'aider ?
Merci d'avance.

[Patrice740]

Bonjour,

Dans un module standard, écrire la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub Ok_Click()
Dim celOrg As Range
Dim celDst As Range
  Set celOrg = ThisWorkbook.Worksheets("Feuil1").Range("A3")  'Adapter le nom de la feuill
  Set celDst = ThisWorkbook.Worksheets("Feuil1").Range("E3")
  ' je voudrais que la valeur qui se trouve en A3 aille en E3 :
  celDst.Value = celOrg.Value
  ' et que la valeur en A3 se supprime :
  celOrg.ClearContents
End Sub

je voudrais que ma macro soit lié à un bouton "OK" que lorsque l'on clique dessus...

Ajouter un bouton sur la feuille et y affecter la macro ci dessus.

[Lion-Soul]

Coucou Worksheet_SelectionChange est ta solution

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If ActiveCell.Columns = 2 Then
 
If ActiveCell.Row > 2 And ActiveCell.Row < 31 Then
 
Cells(ActiveCell.Row, 5).Value = Cells(ActiveCell.Row, 1).Value
 
Cells(ActiveCell.Row, 1).Value = ""
 
End If
 
End If
 
End Sub

[Patrice740]

Bonjour,

Coucou Worksheet_SelectionChange est ta solution

C'est possible (bien que ce ne soit pas la demande exacte).

Mais j'ai mis un pour ton code qui s'adresse à un novice car comme il commence la programmation il faut lui répondre avec une grande rigueur.
On ne doit pas proposer une solution approximative qui peut l'induire en erreur dans sa phase d'apprentissage.
Ton code présente au moins 2 anomalies :
1) Il ne faut pas confondre ActiveCell et Target.
2) Pour supprimer la valeur d'une cellule, Cells(ActiveCell.Row, 1).Value = "" n'est pas efficace dans tous les cas, une des bonnes syntaxes serait Cells(ActiveCell.Row, 1).Value = Empty