Macro recherche d'une cellule variable
Bonjour à tous,
Je suis débutant en vba. Je dois réaliser une action avec un bouton sous Excel.
Je vous explique:
J'ai 2 onglets dans mon fichier, dans le premier onglet j'ai 3 colonnes avec 3 noms de séries. pour ces noms de série je peux avoir des n° d'actions sur une des lignes en dessous quand je clique sur mon bouton.
Par contre, je voudrais également que lorsque le n° d'action est attribué en cliquant sur le bouton dans l'onglet 1, je voudrais que dans l'onglet 2 il me rapporte le nom de série. (Dans l'onglet 2, la 1ère colonne reprend les n° d'action de 1 à 100)
EN fait ce que je voudrais c'est que lorsque je clic sur le bouton, il m'attribue un n° d'action dans l'onglet 1 et qu'il me reporte le nom de série dans l'onglet 2 dans la ligne en face du n° d'action.
Je ne sais pas si c'est clair, mais pour moi vba c'est comme du chinois.
Ci-dessous le code que j'ai actuellement ( biensur je me suis fais aidé!)
Sub CreateAM2()
Dim Counter As Long
Dim ColLetter As String
Dim num_column As Integer
Dim Cell_Add As Range
'Cell_Add = Range("A1:W51")
Dim writeValue As String
Dim partNumLoc As String
Dim num_row As Integer
Dim writeRow As Integer
Counter = Worksheets("Analyse Maintenance").Range("$a$1")
Worksheets("Analyse Maintenance").Activate
If ActiveCell.Value = "KO" Then
ActiveCell.Offset(1, 0).Activate
ActiveCell = Counter
Counter = Counter + 1
Worksheets("Analyse Maintenance").Range("$a$1").Value = Counter
'Call WriteMainAction
MsgBox ActiveCell.Column
MsgBox ActiveCell.Row
num_row = ActiveCell.Row - 1
num_column = ActiveCell.Column
MsgBox "the value of the num_column is" & num_column
ColLetter = Chr(64 + num_column)
'writeValue = "$" ColLetter "3"
MsgBox "the letter of the column is:" & ColLetter
'writeValue = Range(Cells(3, num_column))
'writeValue = Range("ColLetter", 3)
writeValue = Cells(3, num_column)
MsgBox "the value of writeValue is:" & writeValue
partNumLoc = Cells(num_row, 1).Value
'partNumLoc = Cells(25, 1).Value
writeRow = partNumLoc + 2
MsgBox "the value of the device location is:" & partNumLoc
MsgBox "the value of writeValue is:" & writeValue
' Worksheets("Actions correctives").Range("$ColLetter$3").Value = ColLetter
'Worksheets("Actions correctives").Range("$e$3").Value = writeValue
Worksheets("Actions correctives").Cells(writeRow, 5).Value = writeValue
End If
If (ActiveCell.Value = "OK") And (ActiveCell.Offset(1, 0) <> 0) Then
Counter = Counter - 1
Worksheets("Analyse Maintenance").Range("$a$1").Value = Counter
ActiveCell.Offset(1, 0).Value = Null
End If
