Macro pour copier des noms dans les bonnes cellules.
Résolu
grandpapol
Messages postés
10
Statut
Membre
-
grandpapol Messages postés 10 Statut Membre -
grandpapol Messages postés 10 Statut Membre -
Bonjour,
J'ai fait une feuille de calcul protégé pour une activité des résidents.
J'ai copier tous les noms dans la colonne b à partir de la ligne 40.
à chaque personne qui arrive je dois copier son nom à partir de la ligne 4 de la même colonne et un en dessous de l'autre qui détermine l'ordre de leur arrivé pour qu'ils forme des équipes de deux. Comme je dois garder le même format de cellule J'ai utilisé l'enregistrement automatique qui me donne:
Selection.Copy
ActiveWindow.SmallScroll Down:=-21
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Cette macro m'empêche de copier le deuxième nom une cellule plus bas.
J'ai essayé avec :
Selection.Copy
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Mais quand je veux descendre d'une cellule et copier le nom je n'ai pas la bonne formule et n'ai pas trouvé la solution en lisant les blog durant 12 heures.
Je suis las et espère avoir votre solution.
J'ai fait une feuille de calcul protégé pour une activité des résidents.
J'ai copier tous les noms dans la colonne b à partir de la ligne 40.
à chaque personne qui arrive je dois copier son nom à partir de la ligne 4 de la même colonne et un en dessous de l'autre qui détermine l'ordre de leur arrivé pour qu'ils forme des équipes de deux. Comme je dois garder le même format de cellule J'ai utilisé l'enregistrement automatique qui me donne:
Selection.Copy
ActiveWindow.SmallScroll Down:=-21
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Cette macro m'empêche de copier le deuxième nom une cellule plus bas.
J'ai essayé avec :
Selection.Copy
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Mais quand je veux descendre d'une cellule et copier le nom je n'ai pas la bonne formule et n'ai pas trouvé la solution en lisant les blog durant 12 heures.
Je suis las et espère avoir votre solution.
A voir également:
- Macro pour copier des noms dans les bonnes cellules.
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Les noms des animaux - Télécharger - Études & Formations
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller des cellules excel - Guide
- Comment copier une vidéo youtube - Guide
3 réponses
Bonjour,
Pas très clair, ton exposé
Si tu veux copier le nom inscrit en B4 sur la première ligne vide après la ligne 39 :
il faut que B39 ne soit pas vide (au minimum un espace)
Michel
je ne me suis pas occupé de la déprotection-reprotection
Pas très clair, ton exposé
Si tu veux copier le nom inscrit en B4 sur la première ligne vide après la ligne 39 :
il faut que B39 ne soit pas vide (au minimum un espace)
Option Explicit
'-----
Sub inscrire_petitnouveau()
Dim Ligvide As Integer
Ligvide = Columns("B").Find("", Range("B39"), xlValues).Row
Range("B" & Ligvide) = Range("B4")
End Sub
Michel
je ne me suis pas occupé de la déprotection-reprotection
Bonjour
Peut-être cette solution si j'ai bien compris ce que tu veux faire :
Peut-être cette solution si j'ai bien compris ce que tu veux faire :
LigCop = 4
DerniereLigne = Range("B40").End(xlDown).Row
For Lig = 40 To DerniereLigne Step 1
Range("B" & Lig).Select
Selection.Copy
'ActiveWindow.SmallScroll Down:=-21
Range("B" & LigCop).Select
Selection.PasteSpecial Paste:=xlPasteValues
LigCop = LigCop + 1
Next
Voici peut-être la solution. Créer un bouton qui lance cette macro. Choisir un nom cliquer sur le bouton, puis ainsi de suite
Sub CopierNomsDansCell()
Dim Ligvide As Integer
Ligvide = Columns("B").Find("", Range("B3"), xlValues).Row
Selection.Copy
Range("B" & Ligvide) = Selection.Value
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Votre macro fonctionne bien mais ne m'est pas utile car voici la situation :
J'ai fait une liste des noms de nos résidents de la cellule B40 à B60. Elle sera plus longue à l'avenir.
Comme seulement quelques résidents viennent jouer dans la salle, la personne en charge sélectionnera le nom de chaque personne qui arrive avec la souris et activera la macro qui placera ce nom dans la prochaine cellule vide après B4 et ainsi de suite. De cette manière nous savons qui sont les résident qui jouent dans la salle.