Selectionner une cellule sous conditions dans une macro
Bonjour à tous !
D'abord un grand merci aux modérateurs et à tous ceux nous aident à résoudre nos problèmes.
Je n'arrive pas à sélectionner une cellule à localiser selon 2 variables
le code :
Cells(nbadherent + 2, colonnecotisation).Select
bloque mon programme (erreur '1004)
nbadherent étant déclaré : Dim nbadherent As Integer
et colonnecotisation étant le résultat d'un calcul :
annee = Cells(1, 12).Value
colonnecotisation = annee - 1993
pour faire ensuite la somme des cellules d'une plage variable :
ActiveCell.Value = Application.WorksheetFunction.Subtotal(9, Range(Cells(2, colonnecotisation), Cells(nbadherent + 1, colonnecotisation)))
D'avance merci à toute aide.
Bonjour,
Un petit fichier pour t'aider qui reprend ta demande, c'est possible?
Cordialement
Je ne suis pas un pro de la programmation et ma macro doit pouvoir largement être améliorée, mais là n'est pas la question.
J'ai surligné les endroits où la macro bloque
Merci pour ton aide
Re,
Je parlais d'un fichier Excel
A+
Voilou ... euh taille maxi 300ko or le mien fait 1400 ko !!!
et puis c'est un peu génant de divulger des données de personnes (email, cotisation, nom) etc ..mais je peux modifier les données ....
Le vrai blem est la taille de ce fichier.
Re,
Ce que je souhaite, c'est voir la structure de ton fichier.
Tu conserves 15 à vingt lignes, et tu modifies les valeurs de tes cellules (xxx, aaaa, etc...)
A+
impossible de le réduire à moins de 800ko !! Why ???
Je l'ai mis sur mon ftp :
Personne pour m'aider ?
Salut,
Je t'aiderais bien, mais sur ton autre fil, tu m'as laissé en plan
Cordialement.
Bonjour,
A tester
Sub Renouvellementadherent()
'
' Renouvellementadherent Macro
' Reprend les données d'un ancien achérent pour imprimer la feuille d'adhésion, puis réinscrit la personne
Dim i As Long
Dim nbadherent As Integer
Dim Anom, Aprenom, Adate, Aadresse, Acp, Alieu, Atel, Amel, Alic, Afin As Long
10 annee = Worksheets("LISTE").Cells(1, 12).Value
20 colonnecotisation = annee - 1993