| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 13/12/2013 à 16:03 | sonataIII | Numéro de feuille VBA | Comment faire référence au numéro de la feuille dans une macro ? Le but étant que si quelqu'un modifie ou déplace une feuille, ma macro puisse toujours fonctionner. si je fais feuil1.select ça fonctionne bien par contre, dans la procédure: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object... |
| 11/12/2013 à 09:35 | sonataIII | Boucle FOR bizar bizar | Yep Trop d'Excel tue Excel ou trop de fatigue ? Bon après une bonne nuit de sommeille j'ai la solution Merci Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim I, T As Integer Sheets(3).Range("E5:G50").ClearContents For T = 4 To 15 For I = 5 To 50 Sheets(3).Range("E" & CStr(I))... |
| 10/12/2013 à 21:37 | sonataIII | Boucle FOR bizar bizar | C'est un fichier de pointage des absences Je ne comprend pas d'où viens mon erreur <<L'indice n'appartient pas à la sélection>> La variable T plante sur la feuille 16 mais je vois pas pourquoi Si joint un bout de code + le fichier Merci d'avance Private Sub Worksheet_Activate() Dim I, T... |
| 09/12/2013 à 19:01 | sonataIII | Nom de colonne | Merci SUPERRRRRRR... |
| 09/12/2013 à 17:42 | sonataIII | Nom de colonne | Yep j'ai essayé mais ça ne fonctionne pas dans mon cas. Je fais référence à une cellule dans ma boucle ... Do While Sheets("MA").Cells(i, [CODEMA]) Merci quand même... |
| 09/12/2013 à 16:37 | sonataIII | Nom de colonne | Je cherche comment en VBA faire référence à une colonne nommée ? exemple: Do While Sheets("MA").Cells(i, 1) <> "" Or Sheets("MA").Cells(i, 5) <> "" Or Sheets("MA").Cells(i, 16) <> "" Je cherche un truc du genre : Do While Sheets("MA").Cells(i, [CODEMA] ) <> "" Or Shee... |
| 08/12/2013 à 19:01 | sonataIII | Code redondant, actualisation tableau | 1er: J'ai un ptit souci, j'ai un classeur avec trois feuilles qui utilisent le même code. Je pense que je dois pouvoir utiliser la même procédure pour les trois feuilles mais je ne sais pas comment faire. 2ème: j'aimerai que mon tableau de la feuille "Suivi" s'actualise dynamiquement ???? Je suis ob... |
| 05/12/2013 à 15:06 | sonataIII | Worksheet_Activate | J'ai un ptit souci de macro, Je n'arrive pas à mettre le contenu de ma macro dans l’événement : Worksheet_Activate Je suis obligé de le faire manuellement en cliquant sur un bouton... Si joint mon fichier Merci d'avance... |
| 05/12/2013 à 09:55 | sonataIII | Lien vers une cellule | J'ai trouvé je poste, ça peux servir Sub trier() Application.ScreenUpdating = False Dim i, t As Integer Dim x As String i = 12 t = 12 Sheets("MA").Select Do While Cells(i, 1) <> "" Or Cells(i, 2) <> "" Or Cells(i, 3) <> "" Or Cells(i, 4) <> "" Or Cells(i, 5) <> "" Or Ce... |
| 03/12/2013 à 16:05 | sonataIII | Lien vers une cellule | Je n'arrive pas à créer un lien vers une cellule dans mon code ? j'aimerai que quand je click sur un lien, la cellule de destination soit sectionnée ? Les liens fonctionnent, ça ouvre bien la bonne page mais c'est la cellule A12 qui prend le focus ? A priori, il faut passer par la méthode : Sheets("... |
| 03/12/2013 à 13:33 | sonataIII | Problème actualisation | J'ai un souci, quand je colle le code si-après dans Private Sub Worksheet_Activate() j'ai une erreur 1004 la méthode select de la classe range a échoué à la ligne [ Cells(12, 1).Select ] Comment puis-je faire pour que ce soit automatique ? Si dessous le code de mon module. Merci d'avance Sub... |
| 03/12/2013 à 11:33 | sonataIII | Procédure d'enregistrement multiple | Je me répond j'ai trouver un code sur le net qui fonctionne super Public Sub SaveCopy() Dim strDate As String Dim Count As integer Dim PosSep As Intger Count = Len(ActiveWorkbook.Name) PosSep = InStrRev(ActiveWorkbook.Name, ".") '--- Extension xls ou xlsm (3 ou 4 car.) If PosSep = 0 Then NameA = Act... |
| 03/12/2013 à 11:06 | sonataIII | Procédure d'enregistrement multiple | Je cherche une procédure pour effectuer un enregistrement multiple de mon classeur... J'aimerai que quand je click sur la disquette ou par le menu enregistrer, que le classeur soit enregistré sous son nom actuel (classic mode) et que en même temps, il soit enregistré avec la date et l'heure en plus... |
| 02/12/2013 à 13:36 | sonataIII | Insérer des lignes de plusieurs feuilles | Voilà, j'ai fais ça ... Le seul petit souci c'est que je n'arrive pas à exécuter directement le module à l'activation de la feuille ? je suis obliger de le faire manuellement ? Quand je colle le code dans Private Sub Worksheet_Activate() ça génère une erreur 1004 ? mais sinon ça marche Sub trier() S... |
| 02/12/2013 à 12:00 | sonataIII | Insérer des lignes de plusieurs feuilles | Merci c'est sympa mais comment je peux récupérer toutes les données des trois feuilles dans le tableau dynamique ? Mon boss me demande une synthèse des trois feuilles .... J'essaye de faire une boucle mais je m'en sort pas ..... |
| 02/12/2013 à 10:57 | sonataIII | Insérer des lignes de plusieurs feuilles | Ben moi je bosse sur excel 2013 mais si ça peux fonctionner sous excel 97 c'est bien aussi pour la secrétaire... |
| 02/12/2013 à 09:35 | sonataIII | Insérer des lignes de plusieurs feuilles | Voilà, J'ai volontairement modifié des données (question de confidentialité )... |
| 29/11/2013 à 18:15 | sonataIII | Insérer des lignes de plusieurs feuilles | Je suis dans la panade... Mon grand patron me demande (pour hier) à partir de trois feuilles différentes nommées, MA, CH, CO, d'insérer les valeurs sous certaines conditions dans une autre feuille nommée SUIVI. j'ai 21 colonnes dans chaque feuille et je dois copier toutes les lignes (+1500) contenan... |
| 05/09/2010 à 20:37 | sonataIII | Listes | OK je te joint le fichier je pense qu'il doit y avoir moyen de faire plus simple ... |
| 04/09/2010 à 18:54 | sonataIII | Listes | Je m'arrache les cheveux Comment récupérer une liste de sous articles d'un article ? je veut faire ça : code | désignation | qtés | prix | unité | prix unitaire | 001 voiles bétons 35m3 85€ ( béton central) ....... ( coffrage banche)--------- ( acier HA)-------------------- (acier TS )-------------... |