Copier decaler en VBA

bonjour, je voudrais que :

les cellules a5:a6 de ma feuille "conseils" se copient dans

ma feuille "client" quand je clique sur un bouton et si cellule non vide se decalent de 3 cellules j ai cré debut macro puis recupéré la suite sur le site mais cela ne marche pas voici ma macro

Bouton28_Clic Macro

Sheets("conseils").Select

Range("A5:A6").Select

Selection.Copy

Sheets("client").Select

If ActiveCell.Value = "" Then

Range("a9:a10").Copy Destination:=ActiveCell.Value

Else

Range("a9:a10").Copy Destination:=ActiveCell.Offset(3)

Sheets("boutons").Select

End If

End Sub

merci de votre aide

Bonjour

Pas très clair ton problème

Tu veux copier A5:A6 mais tu copies A9:A10

A tester (d'après ce que j'ai compris)

Sub Bouton28_Clic()
  If ActiveCell = "" Then
    Sheets("conseils").Range("A5:A6").Copy Destination:=ActiveCell
  Else
    Sheets("conseils").Range("A5:A6").Copy Destination:=ActiveCell.Offset(0, 3)
  End If
End Sub

Si pas ça

dans lequel tu indiques clairement ce que tu veux

20ecogestes.xlsm (124.46 Ko)

re bonjour

exact je veux copier a5:a6 en a9:a10 si libre si occupé allez en a12:a13

bonjour,

merci pour ta réponse banzai64 mais ce n est pas ce que je cherche.cela je l avais trouvé.ce que je veux c est que si les cellules "a9:a10" sont occupées quand je clique sur un des boutons cela se collent en dessous en "a12:a13" ou en "a15:a16".que cela se colle dans un cellule vide.j espere etre clair

Bonjour

Quelque chose que je ne comprends pas ?

As tu essayé ?

Quand tu cliques sur un bouton le texte correspondant de la page "conseils" est copié dans la page "client" en se décalant de 2 lignes chaque fois

Prépares un exemple de résultat et joins le au prochain message

7ecogestes.zip (66.02 Ko)

bonjour banzai64

je pense qu'il y eu un couac de comprehension, pas grave je te joins fichier de ce que je veux merci

Bonjour

Je dois avoir un problème

Je n'ai qu'un fichier Word vide

Tu me fais un exemple sur une copie du fichier Excel que tu as déjà posté dans un message précédent

17ecogestes2.xlsm (153.67 Ko)

salut

je t envoie le fichier sur la feuille boutons clique dans le cadre sur 'ole'

merci

Bonsoir

Ce n'est pas gagné

erreur chargement 002
29ecogestes.xlsm (160.17 Ko)

bonjour,

désolé pour le fichier; j en joint un nouveau avec une feuille explication ( le commentaire est sur la ligne 35)

merci

Bonjour

Je me pose la question si tu as essayé le fichier que j'ai joint

Tu le reprends et testes le : Cela correspond EXACTEMENT à ta demande

bonjour banzai64

déjà un grand merci pour ta patience :ton fichier fonctionne impeccable.

Une derniere question concernant l affectation de la macro aux boutons existe-t-il une manip plus rapide que de passer bouton par bouton par leur affecter la macro

hier n'était pas mon jour!!!!!!!!!!!!!!!!

Bonjour

snoopy a écrit :

une manip plus rapide que de passer bouton par bouton

Il faut tous les sélectionner

Soit en utilisant l'outil "Sélectionner les objets" : Ruban onglet "Accueil" ---> clic sur la jumelle (complétement à droite) et dans le menu déroulant, sélectionnes "Sélectionner les objets"

Soit tu appuies sur la touche Ctrl et sans la lâcher tu cliques sur les objets (boutons) (solution non vabable pour les ActiveX)

Rechercher des sujets similaires à "copier decaler vba"