je me dis que ça s'embrouille de plus en plus et qu'il est nécessaire de préciser davantage à quoi sert cette macroSalut Jean-Marcel,
la macro fonctionne avec le pays "Belarus" en E57, mais pas pour les autres pays (ce que j'aimerai adapter)
je veux éviter de faire 1 macro par pays (usine à gaz), car j'ai dans l'absolu 30 pays à gérer !!
d'où ma question: peut on adapter le code pour trouver les valeurs "Belarus" ou "Belgique" ou "Brésil" en colonne B ??
@+
Sub Insertion()
Dim pays$, deb As Range, fin As Range
pays = ActiveSheet.DrawingObjects(Application.Caller).Text
Set deb = [B:B].Find(pays, LookIn:=xlValues): MsgBox deb.Row 'pour tester
Set fin = [B:B].Find(pays, After:=deb): MsgBox fin.Row 'pour tester
End 'pour tester
'reste de la macro à revoir en fonction de deb et fin...
End Sub
Lg = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
La macro de Goose n'a ni queue ni tête
Sub Insertion()
Dim derlig As Long
derlig = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Cells(derlig - 1, "B").Resize(, 9).Insert xlDown
Cells(derlig - 2, "B").Resize(, 9).AutoFill Cells(derlig - 2, "B").Resize(2, 9)
End Sub