Adapter le code dans le fichier joint

[Lone-wolf]

Bonjour à tous,

j'ai modifier le code de Jam pour adapter une forme dans une celulle que voici:

Sub Test()
Dim x As Single, y As Single, w As Single, h As Single, t As Double
  With Range("E3")
        y = .Top + 3
        x = .Left + 3
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
End With
    With ActiveSheet.Shapes("Rouge1")
        .Top = y
        .Left = x
        .Width = w - 3
        .Height = h - 5
    End With
      t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
  
      With Range("G3")
        y = .Top + 3
        x = .Left + 3
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
End With
    With ActiveSheet.Shapes("Rouge2")
        .Top = y
        .Left = x
        .Width = w - 3
        .Height = h - 5
    End With
End Sub

Je n'arrive pas à l'adapter à mon fichier, pourriez-vous m'aider?

Damier


A+ 😎

 

[Hippolite]

Re : Adapter le code dans le fichier joint

Bonsoir,
Il n'y a pas de devin ici.
Si tu n'explique pas ce que tu veux obtenir, il ne risque pas d'y avoir de réponse
A+

 

[Lone-wolf]

Re : Adapter le code dans le fichier joint

oops! Je suis resté bloqué. 😱

 

[Lone-wolf]

Re : Adapter le code dans le fichier joint

Bonjour Hippolite,

Je suis entrain de faire un damier en utilisant une feuille. Comme il y à 40 pions (formes),

jaimerais que ceux-ci soient centrer dans les cases correspondantes lors de l'ouverture du classeur.

Les pions sont nommés ainsi: 1 à 20 "Rouge" et 1 à 20 "Blanc".



A+ 😎

 

[Bebere]

Re : Adapter le code dans le fichier joint

bonjour Lone Wolf,Hippolite
pour les pions rouges
à adapter pour les blancs
i=0
For l = 3 To 6 'lignes
If l Mod 2 = 0 Then
d = 6: f = 14
Else
d = 5: f = 13
End If
For c = d To f Step 2 'colonnes
i = i + 1
ActiveSheet.Shapes("Rouge" & i).Left = Range(Cells(l, c).Address).Left + 3
ActiveSheet.Shapes("Rouge" & i).Top = Range(Cells(l, c).Address).Top + 3
Next
Next

à bientôt

 

[Lone-wolf]

Re : Adapter le code dans le fichier joint

Bonjour Bebere,

nickel!

Et merci pour l'adaptation 😉



A+ 😎