Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour,
par l'opération de copier-coller faire une affecation automatique, ca me semble très improbable. Par contre, une fois réalisée l'opération de copie faire par programmation une affectation automatique des cases à cocher , ca c'est possible. Comme je ne savais pas de quelles cases à cocher tu parlais, dans l'exemple suivant il y a les deux possibilités (en supposant bien sur qu'il n'y a que des cases à cocher sur ta feuille, je n'ai pas en + fait un test dans la proc pour savoir s'il s'agissait de cases à cocher ou de Checkboxes ) selon que c'est uen case à cocher issu de la barre d'outils formulaires ou selon que c'est un checkbox issu de la barre d'outils controles. Tu freas ton choix et tu enleveras l'instruction qui convient.
Je résume. Tu fais ta copie , puis tu lances la proc suivante. Toutes les cases à cocher seront alors liées automatiquement à la cellule qui est en haut à gauche (topleftcell) qui les abritent.
On Error Resume Next For Each sh In ActiveSheet.Shapes With sh .ControlFormat.LinkedCell = .TopLeftCell.Address(0, 0) .OLEFormat.Object.LinkedCell = .TopLeftCell.Address(0, 0) End With Next
A+
Je cherche à copier des cases à cocher dans autres cellules en liant automatiquement les cases à cocher aux cellules corespondantes.
Au secours, aidez moi, merci d'avance.
Pierre.
bonjour,
par l'opération de copier-coller faire une affecation automatique, ca me
semble très improbable. Par contre, une fois réalisée l'opération de copie
faire par programmation une affectation automatique des cases à cocher , ca
c'est possible. Comme je ne savais pas de quelles cases à cocher tu parlais,
dans l'exemple suivant il y a les deux possibilités (en supposant bien sur
qu'il n'y a que des cases à cocher sur ta feuille, je n'ai pas en + fait un
test dans la proc pour savoir s'il s'agissait de cases à cocher ou de
Checkboxes ) selon que c'est uen case à cocher issu de la barre d'outils
formulaires ou selon que c'est un checkbox issu de la barre d'outils
controles. Tu freas ton choix et tu enleveras l'instruction qui convient.
Je résume. Tu fais ta copie , puis tu lances la proc suivante. Toutes les
cases à cocher seront alors liées automatiquement à la cellule qui est en
haut à gauche (topleftcell) qui les abritent.
On Error Resume Next
For Each sh In ActiveSheet.Shapes
With sh
.ControlFormat.LinkedCell = .TopLeftCell.Address(0, 0)
.OLEFormat.Object.LinkedCell = .TopLeftCell.Address(0, 0)
End With
Next
A+
Je cherche à copier des cases à cocher dans autres cellules en liant
automatiquement les cases à cocher aux cellules corespondantes.
par l'opération de copier-coller faire une affecation automatique, ca me semble très improbable. Par contre, une fois réalisée l'opération de copie faire par programmation une affectation automatique des cases à cocher , ca c'est possible. Comme je ne savais pas de quelles cases à cocher tu parlais, dans l'exemple suivant il y a les deux possibilités (en supposant bien sur qu'il n'y a que des cases à cocher sur ta feuille, je n'ai pas en + fait un test dans la proc pour savoir s'il s'agissait de cases à cocher ou de Checkboxes ) selon que c'est uen case à cocher issu de la barre d'outils formulaires ou selon que c'est un checkbox issu de la barre d'outils controles. Tu freas ton choix et tu enleveras l'instruction qui convient.
Je résume. Tu fais ta copie , puis tu lances la proc suivante. Toutes les cases à cocher seront alors liées automatiquement à la cellule qui est en haut à gauche (topleftcell) qui les abritent.
On Error Resume Next For Each sh In ActiveSheet.Shapes With sh .ControlFormat.LinkedCell = .TopLeftCell.Address(0, 0) .OLEFormat.Object.LinkedCell = .TopLeftCell.Address(0, 0) End With Next
A+
Je cherche à copier des cases à cocher dans autres cellules en liant automatiquement les cases à cocher aux cellules corespondantes.
