atteindre une cellule Résolu/Fermé

Question

Bonjour, 



Configuration: Windows 7 / Internet Explorer 10.0

bonjour a tous
je cherche comment atteindre une cellule avec une certaine valeur.
je m'explique = dans une cellule donnee de la feuille1 je rentre une valeur (par exemple : 01/01/2014) et ca m'envoie directement a la cellule de la feuille2 qui contient cette valeur.
en quelque sorte comme la fonction "recherché".
c'est possible ?

joseB45 · Answer

j'ai fini par trouvé ca

Sub Macro1() 
Dim Plage As Range 
Set Plage = Application.InputBox("Sélectionnez une plage !", "Us se débrouille pour vous...", Type:=8) 
Dim MotRechercher As String 
MotRechercher = InputBox("Entrer la donnée à repérer", "Us") 
If MotRechercher = vbNullString Then Exit Sub 
Dim Cellule As Range 
For Each Cellule In Plage 
If InStr(1, Cellule.Value, MotRechercher) > 0 Then 
    Range(Cellule.Address).Select 
    With Selection.Interior 
        .ColorIndex = 6 'jaune 
        .Pattern = xlSolid 
    End With 
End If 
Next Cellule 
End Sub

c'est presque ce que je recherchais. Ce qui aurait été top c'est d'avoir la selection de plage en dur dans la macro plutôt que de passer par la fenetre de dialogue

merci d'avance

michel_m · Answer

Bonjour

essaies
Option ExplicitSub atteindre()Dim Jour As Date, Adresse As StringWith Sheets(1)Jour = .Range("C2")End WithWith Sheets(2)     On Error GoTo Erreur     Adresse = .Cells.Find(Jour, xlValues).Address     .Activate     .Range(Adresse).SelectEnd WithErreur:MsgBox Jour & ": donnée inconnue en feuille2"

Mike-31 · Answer

Bonjour,

regarde ce code, la valeur recherchée, (ta date) en cellule D3 de la feuille nommée Feuil1
Sélectionne la cellule contenant la même valeur dans la colonne F de la feuille nommée Feuil2

Sub Valeur_Trouvée()
Dim x As String
Sheets("Feuil1").Range("D3").Select
x = ActiveCell.Value
Sheets("Feuil2").Select
With Worksheets("Feuil1").Range("F:F")
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
Address = c.Address
End If
End With
Range(Address).Select
End Sub

joseB45 · Answer

merci Michel pour cette reponse
mais bon, je ne suis pas tres doué en VBA, je construis mes macros soit en prenant a gauche et a droite en les adaptant a mes besoins soit en utilisant la fonction enregistrer de VBA et je dois avouer que je ne comprends pas comment fonctionne la tienne.
le but de cette macro est le suivant = 
je rempli un tableau avec différentes valeurs tous les mois, je l'archive sur une autre feuille et ensuite j'efface le contenu du tableau feuille1.
l'interet de cette macro pour laquelle je vous sollicite c'est que au bout d'un certain nombre d'annee la feuille d'archivage sera bien rempli et que je voudrais pouvoir acceder rapidement a n'importe quel tableau d'un mois/annee donne.
alors cette macro que j'ai trouve va tres bien sauf que je n'ai pas le besoin d'indiquer la plage puisque cette plage est fixe = colonne A.
voila, j'espere avoir été assez clair
jose

joseB45 · Answer

merci Michel mais pour ton code ca me donne ca = erreur 1004 méthode 'range' de l'objet '_global' a échoué

Mike, a chaque execution je finis sur la boite de dialogue MsgBox

on peut mettre des pièces jointes ici ? ce serait peut etre plus simple avec une copie du fichier

a+

michel_m · Answer

Bonjour

testée avec succès sur cette maquette
https://www.cjoint.com/?3LBigIoJ0cx

code modifié
Option ExplicitSub atteindre()Dim Jour As Date, Adresse As StringWith Sheets(1)Jour = .Range("C2")End WithWith Sheets(2)     On Error GoTo Erreur     Adresse = .Columns("A").Find(Jour).Address     .Activate     .Range(Adresse).SelectEnd WithExit SubErreur:MsgBox Jour & ": donnée inconnue en feuille2 colonne A"End Sub

pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/ 
puis copier l'adresse du lien et la coller dans le message de réponse 

 
 
 Michel

joseB45 · Answer

ha superbe, merci Michel, ca marche !
bon en realite dans ce dossier, il y a 2 feuilles d'archivages.
j'ai donc adapte ce code aux deux, ca fonctionne tres bien sur la premiere mais pas sur la deuxieme, je tombe sur la MsgBox, a savoir que la donnee recherche est dans une cellule de la colonne E mais qu'elle est fusionnee avec les cellules de droite (colonne Fet G) serait ce la raison du fait que ca ne fonctionne pas ?

je joint le dossier
https://www.cjoint.com/?3LEqaXciQHp

il n'y a aucune donnee confidentielle dedans

merci

michel_m · Answer

une cellule de la colonne E mais qu'elle est fusionnee avec les cellules de droite  
 
certainement
en macro, évite au maximum les cellules fusionnées

il faut donc que tu enlèves la fusion, que tu sélectionnes les  cellules fusionnées (E,F,G) et que tu demandes "centré sur plusieurs colonnes" (au besoin tu peux agrandir la largeur colonne E)
Pour accéder à ces commandes, tu cliques sur la petite flèche en bas et à droite du ruban accueil-alignement

 Michel

joseB45 · Answer

c'est nickel, je te remercie Michel
j'ai simplement change l'esthetique de la tete du tableau de facon a avoir la date sur une seule colonne et tip top ca marche
encore merci

Atteindre une cellule

9 réponses

Discussions similaires