XL 2010 bouton suivant A1 puis A2 macro

[clemfarfar]

Bonjour a tous ,


je débute dans vba et je voudrais faire une bouton qui me sélection la cellule A1 , puis quand je reclique sur le bouton , il me selectionne A2 puis A3 puis A4 .... jusque a A100

je n'ai pas réellement trouvé l'info qu'il me faudrait sur le net , si vous avez des liens ou autre pour me renseigner , je suis preneur

je vous remercie par avance de votre aide .

 

[Rouge]

Bonjour,

Ceci:

Sub Changer_de_Cellule()
    Application.ScreenUpdating = False
    If ActiveCell.Row = 100 Then Lig = 1 Else Lig = ActiveCell.Row + 1
    Cells(Lig, "A").Select
End Sub

Cdlt

 

[clemfarfar]

Salut merci de ta rapidité , ton code fonctionne mais j ai une erreur , en gros voici ce qui fonctionne chez moi et que je voudrais rendre automatique sheets " feuil1" ("a1").range . J ai teste 2 / 4 trucs durant la nuit mais j ai pas trouvé la solution merci en tout cas merci

 

[Rouge]

"je voudrais rendre automatique sheets " feuil1" ("a1").range . J ai teste 2 / 4 trucs durant la nuit mais j ai pas trouvé la solutionerci"
sheets " feuil1" ("a1").range CA NE VEUT RIEN DIRE, l'écriture correcte est:
Sheets"Feuil1"). range("A1")

Maintenant, ma réponse colle à la question posée, si vous voulez que cela fasse autre chose, il faut en dire un peu plus, et si possible avec un petit fichier ne contenant pas de données confidentielles, c'est encore mieux.

 

[clemfarfar]

Pas de soucis, je regarderais ce soir et j enverais un fichier avec explication

 

[Modeste geedee]

Bonjour a tous ,


je débute dans vba et je voudrais faire une bouton qui me sélection la cellule A1 , puis quand je reclique sur le bouton , il me selectionne A2 puis A3 puis A4 .... jusque a A100

je n'ai pas réellement trouvé l'info qu'il me faudrait sur le net , si vous avez des liens ou autre pour me renseigner , je suis preneur

je vous remercie par avance de votre aide .

What the fuck ???
une macro pour ça???

- Cliquer sur un bouton = 1 clic
- Cliquer directement sur la cellule = 1 clic

une fois la cellule sélectionnée on fait quoi ???
qu'est-ce qui empeche ensuite de cliquer ailleurs que sur la bouton ou la cellule adjacente ?

 

[clemfarfar]

Sub Nouvelleclaque()
Dim ass As Integer
Dim wb As Workbook
Dim ws As Worksheet

Sheets("info").Select
PID = Application.ScreenUpdating = False
If ActiveCell.Row = 100 Then Lig = 1 Else Lig = ActiveCell.Row + 1
Cells(Lig, "A").Select

Tav = Mid(PID, 1, 3)
cnx = Mid(PID, 5, 4)
ond = Mid(PID, 10, 2)
ass = Mid(PID, 13, 3)


Sheets("claque").Select

Workbooks.Open ("c:bureau\" & Tav & "clients\" & cnx & "_" & ond & "_" & ass & ".xls")

'Set ws = ActiveWorkbook.Worksheets("Répartition")
Range("A1:Y59").Copy
'colle dans l'onglet "claque"
Windows("clients").Activate
Range("A1").Select
ActiveCell.PasteSpecial xlPasteValues
OpenBook.Close
'Selectionner "client 1" ou "client 2"
Sheets("clients2").Select
MsgBox "Choisir le bon client "
'CreateObject("Wscript.shell").Popup "Mon Texte", 3, "Le Titre"



End Sub

 

[clemfarfar]

voila le module .

donc en gros, le bouton suivant me sert a aller chercher des infos dans un onglets , 355 5555 36 356 .... puis celui ci va me chercher dans le bon répertoire dans le bon fichier , puis me copie celui ci dans un onglet et grâce a lui je peux le transférer et me sortir une sorte de temps passé.

j'ai inséré le code de @Rouge

j'ai une erreure 13 incompatible de type

 

[clemfarfar]

bonjour a tous ,

bon au final, j'ai réussis c'est pas tres catholique ce que j'ai fais mais fonctionnel :

Sub Nouvelleclaque()
Dim ass As Integer
Dim wb As Workbook
Dim ws As Worksheet

Sheets("info").Select
PID = Application.ScreenUpdating = False
If ActiveCell.Row = 100 Then Lig = 1 Else Lig = ActiveCell.Row + 1
Cells(Lig, "A").Select

Tav = Mid(PID, 1, 3) < ce que j'ai changé Tav= Mid (cells(lig,"A"),1,3)
cnx = Mid(PID, 5, 4)< ce que j'ai changé cnx = mid (cells'lig,"a"),5,4)
ond = Mid(PID, 10, 2)< ce que j'ai changé...
ass = Mid(PID, 13, 3)< ce que j'ai changé...

ça a fonctionné sans erreur, merci en tout cas