Implantation dans un tableau croisé
Résolu/Fermé
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
-
14 janv. 2014 à 09:59
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 15 janv. 2014 à 15:05
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 15 janv. 2014 à 15:05
A voir également:
- Implantation dans un tableau croisé
- Tableau croisé dynamique - Guide
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
1 réponse
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 255
14 janv. 2014 à 19:29
14 janv. 2014 à 19:29
Bonjour,
Avec .find(). Exemple :
eric
Avec .find(). Exemple :
Sub recherche_cel() Dim col As Long, lig As Long, c As Range, erreur As Boolean Dim nom As String, sem As String nom = "Daniel G." sem = "Semaine 4" ' recherche colonne Set c = Sheets("Infos").Rows(8).Find(nom, LookIn:=xlValues, Lookat:=xlWhole) If Not c Is Nothing Then col = c.Column Else erreur = True End If ' recherche ligne Set c = Sheets("Infos").[B:B].Find(sem, LookIn:=xlValues, Lookat:=xlWhole) If Not c Is Nothing Then lig = c.Row Else erreur = True End If If erreur Then MsgBox "erreur" Else MsgBox "Ligne : " & lig & ", Colonne : " & col End If End Sub
eric
15 janv. 2014 à 10:15
Effectivement cette macro à l'air de répondre à mes besoins pour trouver la cellule que je recherche (du moins je pense, j'espère que le fait qu'il y est le même tableau en 3 fois ne va pas porter de confusion sur celui dans lequel je veux mettre mes données), en revanche je ne sais pas comment faire pour remplacer le contenu de cette cellule (une fois trouvé) par le contenu de ma textbox.
En tout cas merci pour ton aide !
PS : Peut-on numéroter les lignes sur VBA comme dans tu l'as fais sur le forum ? Si oui, comment ? Merci d'avance.
Modifié par eriiic le 15/01/2014 à 10:30
le fait qu'il y est le même tableau en 3 fois ne va pas porter de confusion
Dans ce cas précise la plage de recherche pour le .find :
Set c = Sheets("Infos").[B2:B25].Find(sem, LookIn:=xlValues, Lookat:=xlWhole)
Peut-on numéroter les lignes sur VBA comme dans tu l'as fais sur le forum ? Si oui, comment ?
Sélectionner le code, dans les icones de mise en forme en haut dérouler la liste de l'icone <> et choisir "basic"
N'oublie pas de mettre en résolu le moment venu
eric
15 janv. 2014 à 12:19
Encore une dernière petite chose si tu veux bien, est-il possible de faire la même chose sur plusieurs onglets ? Je voudrais trouver la cellule de Fabien A, pour la semaine 8 par exemple sans savoir si elle se trouve sur l'onglet Janvier, Février ou Mars ect...
Est-ce possible directement dans VBA ? Faut-il trouver un moyen de lui indiquer dans quel onglet se trouve quel semaine (un petit tableau sur la feuille infos par exemple) je ne sais vraiment pas comment faire.
Merci d'avance.
Modifié par eriiic le 15/01/2014 à 14:34
Un tableau devra être rempli chaque année...
Plutôt par une fonction personnalisée pour retrouver le nom d'onglet :
Si la chaine retournée est vide c'est que la semaine n'a pas été retrouvée. A tester en 1er pour gérer l'erreur (if... then...else...endif)
eric
15 janv. 2014 à 15:05
Encore une fois j'ai réussi à faire exactement ce qu'il me fallait grâce à ton aide.
Merci pour tout !
Bonne journée