VBA - Selection

[jeff33800]

Bonjour,

J'utilise actuellement un petit fichier Excel me permettant de gérer le stock de PC de mon entreprise, que je met a disposition aux commerciaux pour qu'ils puissent réserver une machine, et voir ce qu'il y a .

Ils utilisent donc 2 boutons : Ils sélectionnent dans le tableau où sont référencé tout les PC le numéro de série de la machine qu'il y a dans la colonne C, puis ils cliquent sur un bouton nommée Copier S/N, qui copie la case sur laquelle ils se sont placé en A2, puis mettre en réservation qui colore toute la ligne d'une couleur particulière pour que les autres commerciaux sache que ce pc est réservé.

J' aimerait donc, pour éviter toute source d'erreurs ( En effet, si autre chose qu'un numéro de série est copier en A2, cela me colore toute la page entière, lol, ce problème est connu et non ré-solvable pour le moment ), pouvoir que, en sélectionnant n'importe qu'elle cellule d'une ligne, il vient se placer dans la colonne C de la même ligne, automatiquement.

Je ne sais pas si je me suis bien expliqué, pour tout complément d'information, je me tient a votre disposition 🙂

Merci d'avance pour l'intérêt que vous porterez a ma demande,

Cordialement

Jeff33800

 

[Staple1600]

Re : VBA - Selection

Bonsoir

C'est clair comme de l'eau de boudin 😀

pour que ce soit clair comme de l'eau de roche, un petit fichier exemple serait le bienvenu (sans données confidentielles bien sur) 😉

 

[jeff33800]

Re : VBA - Selection

Bonjour,

et tout d'abord, merci pour votre réponse 🙂

Mon fichier excel fait 772ko, or , la limite du forum est apparemment 48ko, une autre solution? Lol 🙂

Merci d'avance,

Cordialement

Jeff33800

 

[Staple1600]

Re : VBA - Selection

Re

Same player shoot again


j'ai précisé un fichier exemple (pas le fichier original)

(un fichier de quelques lignes seulement suffira, avec 1 seul onglet )
Pas besoin d'images, de couleur et de fioritures dans le genre)

De plus tu peux compresser ton fichier et joindre un *.zip

 

[jeff33800]

Re : VBA - Selection

A la limite j'ai sa ^^.

Par exemple, on selectionne E7, ou A7, ou D7 ...
On appuie sur le bouton Copier S/N, Et automatiquement par une maccro, il vient copier le contenu de C7 dans A2.

Voila ^^,


Merci d'avance 🙂

 

[Staple1600]

Re : VBA - Selection

Re


Relis mon précédent message.

C'est toi qui un problème à résoudre.

Donc c'est à toi de fournir les outils nécessaires à sa résolution. 😉

 

[jeff33800]

Re : VBA - Selection

Et voila le petit fichier exemple 🙂

En en fait, je voudrais que, quel que soit l'endroit ou je suis dans le tableau, il me copie (sur la ligne ou je suis placé) ce qu'il y a en C, soit la collone S/N.

Merci d'avance

Cordialement,

Jeff33800

 

[Staple1600]

Re : VBA - Selection

Re

N'essayes pas ceci

Sub Copier_bis()
If Not Intersect(ActiveCell, Range("A6:D16")) Is Nothing Then
If Not IsEmpty([a2]) Then
Cells(ActiveCell.Row, 3) = [a2]
End If
End If
End Sub

* si j'ai bien compris ta question.

EDITION (lol)

mais essayes plutôt cette macro

Sub Copier_ter()
If Not Intersect(ActiveCell, Range("A6:D16")) Is Nothing Then
If Not IsEmpty(Cells(ActiveCell.Row, 3)) Then
[a2] = Cells(ActiveCell.Row, 3)
End If
End If
End Sub

Parfois, j'ai la comprenette qui vacille 😱

 

[jeff33800]

Re : VBA - Selection

Bonjour,

Et tout d'abord, merci beaucoup pour ce code que tu m'as donné, vraiment très bien le résultat :

Si je sélectionne la cellule a coté (que ce soit droite ou gauche) il me copie bien en A2 la cellule de C.

Cela corrige déjà principalement les petites erreurs de manipulation.

Est il possible que ce résultat soit le même si je sélectionne n'importe qu'elle cellule de toute la ligne?

Merci beaucoup en tout cas,

Bien cordialement,

Jeff33800

 

[jeff33800]

Re : VBA - Selection

Edit :

J'ai reussit a faire marcher en adaptant :

Sub Copie_vers()
If Not Intersect(ActiveCell, Range("A5:M1001")) Is Nothing Then
If Not IsEmpty(Cells(ActiveCell.Row, 3)) Then
[a2] = Cells(ActiveCell.Row, 3)
End If
End If
End Sub


J'ai changé le Range en mettant la reference de mon tableau en prenant une marge.

Dans le cadre de mon apprentissage du VBA, peut tu m'expliquer cette macro?

Car c'est cool que sa marche, merci encore, mais j'aimerait comprendre =)

Merci d'avance,

Bien cordialement,

Jeff33800