XL 2010 bouton suivant A1 puis A2 macro

R

Rouge

XLDnaute Impliqué

• 9 Février 2021

• #2

Bonjour,

Ceci:

VB:

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

 

Vote positif 0 Vote négatif

Solution

C

clemfarfar

XLDnaute Nouveau

• 9 Février 2021

• #3

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

 

Dernière édition: 9 Février 2021

Vote positif 0 Vote négatif

R

Rouge

XLDnaute Impliqué

• 9 Février 2021

• #4

"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.

 

Vote positif 0 Vote négatif

C

clemfarfar

XLDnaute Nouveau

• 9 Février 2021

• #5

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 9 Février 2021

• #6

clemfarfar à dit:

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 .

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

C

clemfarfar

XLDnaute Nouveau

• 9 Février 2021

• #7

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

 

Dernière édition: 9 Février 2021

Vote positif 0 Vote négatif

C

clemfarfar

XLDnaute Nouveau

• 9 Février 2021

• #8

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

 

Dernière édition: 9 Février 2021

Vote positif 0 Vote négatif

C

clemfarfar

XLDnaute Nouveau

• 9 Février 2021

• #9

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

 

Vote positif 0 Vote négatif