simplifier code

[MARIE]

BONJOUR A TOUS

Dans cet extrait d'une application je fais la mise a jour de la colonne C de ma base de données avec ce code ,Est il possible de simplifier ou de faire ceci avec une formule ,je précise que l'ordre de la colonne A est aléatoire suivant l'ajout ou la suppression d'une fiche de données

Merci pour vos réponses et bonne journée à tous

Sub macro1()
Dim x As String

Application.ScreenUpdating = False
Sheets("BASE").Select
ActiveSheet.Unprotect

If Worksheets("BASE").Range("a5") > ("1") Then
x = Worksheets("BASE").Range("a5").Value
Sheets("BASE").Range("C5") = Worksheets(x).Range("A1")

If Worksheets("BASE").Range("a6") > ("1") Then
x = Worksheets("BASE").Range("a6").Value
Sheets("BASE").Range("C6") = Worksheets(x).Range("A1")

If Worksheets("BASE").Range("a7") > ("1") Then
x = Worksheets("BASE").Range("a7").Value
Sheets("BASE").Range("C7") = Worksheets(x).Range("A1")

If Worksheets("BASE").Range("a8") > ("1") Then
x = Worksheets("BASE").Range("a8").Value
Sheets("BASE").Range("C8") = Worksheets(x).Range("A1")

If Worksheets("BASE").Range("a9") > ("1") Then
x = Worksheets("BASE").Range("a8").Value
Sheets("BASE").Range("C9") = Worksheets(x).Range("A1")

If Worksheets("BASE").Range("a10") > ("1") Then
x = Worksheets("BASE").Range("a8").Value
Sheets("BASE").Range("C10") = Worksheets(x).Range("A1")
'etc.
End If
End If
End If
End If
End If
End If
Range("a1").Select
Application.ScreenUpdating = True
End Sub

 

[MARC]

Bonjour,

J'ai affecté la macro "essai" au bouton présent sur la feuille

Une des pistes

A+

 

[D G]

bonjour Marie,

a priori ce code fonctionne

Sub macro1()
Dim x As String

Application.ScreenUpdating = False
Sheets("BASE").Select
ActiveSheet.Unprotect
For cpt = 5 To 24
If Worksheets("BASE").Cells(cpt, 1) > ("1") Then
x = Worksheets("BASE").Cells(cpt, 1).Value
Sheets("BASE").Cells(cpt, 3) = Worksheets(x).Range("A1")


End If
Next
Range("a1").Select

Application.ScreenUpdating = True


End Sub


Bonne journée

 

[MARIE]

merci beaucoup pour vos reponses cela me convient parfaitement
bonne soiree et peut etre a bientot