nairolftessub
Messages postés7Date d'inscriptionmardi 6 décembre 2005StatutMembreDernière intervention26 octobre 2007
-
25 oct. 2007 à 15:01
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
31 oct. 2007 à 02:15
Bonjour, j'aimerai que : quand je clique sur la touche "j", mon curseur se place sous la dernière cellule occupée de la colonne A. Idem pour la touche "g" avec la colonne B et la touche "r" pour la colonne C. Toutes les autres touches étant désactivées sauf la touche "Esc" pour sortir de la macro.
Il y a sûrement une fonction simple à utiliser, mais je ne la trouve pas. Si quelqu'un pouvais me mettre sur la piste!!!
Merci d'avance.
nairolftessub
Messages postés7Date d'inscriptionmardi 6 décembre 2005StatutMembreDernière intervention26 octobre 2007 26 oct. 2007 à 08:44
Bonjour
Si je ne me trompe pas, je suis sur le forum Divers/Débutants! Donc pour moi, lorsque je parle de cellule et de colonne, je suis forcément dans Excel !!!
cs_lecorsaire59
Messages postés39Date d'inscriptionmardi 9 octobre 2007StatutMembreDernière intervention17 octobre 2008 26 oct. 2007 à 10:08
je suis moi m débutant donc je ne pe te fournnir qu'un début d'aide :
il faut d'abord que tu crées une macros(suite d'instruction) en suite tu fais outils/macros/macros/ tu selectionne la macro que ta crée/ tu delectionne option et t'affecte comme raccourci J.
ta macro se déclenchera lorsque tu fera crtl+J, c'est pas tout a fait ce que tu voulais mais c'est un début... si non utilise l'instruction KeydownJ, l'instruction se déclenchera a chaque fois que J sera enfoncé mais je connais encore mal cette instruction....
après qq recherche ta macro peut ressembler à ca :
dans module tu fais copier coller de ce code :
Function fin_de_ligne()
Dim nligne As Integer ' nligne est un nom
Application.ScreenUpdating = False
For Each cell In Range("a1:a65536") 'pour chaque cellule de la colonne A
nligne = CInt(Mid(cell.Address, 4))
'test si valeur renseignée
If cell.Value = "" Then 'si la cellule est vide
continue = False
cell.Activate
Application.ScreenUpdating = True
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, -1).Select
Application.ScreenUpdating = True
Exit Function
End If
Next
Application.ScreenUpdating = True
End Function
sur ta feuille tu crée un bouton av
Private Sub CommandButton1_Click()
Call fin_de_ligne
End Sub
PS accepte les réponse que quand tu auras trouvé une solution valable...
je sais que mon message est un peu désordonner mais c'est parce que je viens d'y passer 35 min...
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 31 oct. 2007 à 02:15
"Bonjour
Si je ne me trompe pas, je suis sur le forum Divers/Débutants! Donc pour moi, lorsque je parle de cellule et de colonne, je suis forcément dans Excel !!!"