Votre question

[VBA] Parcourir toutes les cellules d'une feuille

Tags :
  • string
  • Programmation
Dernière réponse : dans Programmation
23 Décembre 2010 14:25:30

Bonjour,

J'ai un probleme, pour parcourir toutes les cellules de mon classeur. j'ai ce code :

  1. Sub test()
  2. Dim Plage As Range, Cellule As Range
  3.  
  4. Dim Position As Integer
  5. Dim Chemin As String 'chemin de la base de données
  6. Dim base As Database ' objet base de données
  7. Dim requete As String 'requete SQL au format texte
  8. Dim liaison1 As Recordset 'endroit où sont stockés les enregistrements
  9. Dim formule As String
  10.  
  11. fichier = ActiveWorkbook.Name
  12. 'Se connecter à la base de données
  13. Chemin = "U:\LogOsi\PROJETS\Projet BUR WOP\WOP Conversion\BDD_WOP.accdb"
  14. Set base = DBEngine.OpenDatabase(Chemin)
  15. 'va chercher tout les nom_fic dans la base
  16. requete = "SELECT nom_conv FROM Converti"
  17. requete2 = "SELECT nom_liaison FROM Liaisons WHERE nom_fic = '" & fichier & "'"
  18. 'Déclaration du recordset
  19. Set liaison1 = base.OpenRecordset(requete)
  20. Set liaison2 = base.OpenRecordset(requete2)
  21. Set Plage = Range("A16:C23")
  22.  
  23. extension = Right(liaison1(0), 5)
  24. For Each Cellule In Plage
  25.  
  26. formule = "*" & liaison2(0) & "*"
  27. If Cellule.Formula Like formule Then
  28. 'remplace par ".xlsm" ou ".xslx"
  29. Cellule.Replace What:=".xls", Replacement:=extension, LookAt:=xlPart, _
  30. SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
  31. ReplaceFormat:=False
  32.  
  33. Else
  34.  
  35. End If
  36.  
  37.  
  38. Next Cellule
  39.  
  40. End Sub

Il fonctionne bien entre les cellule A16:C20 mais j'aimerai un code qui parcours toute ma feuille directement. Je ne trouve pas la bonne syntaxe.

Puis il ne me prend qu'un seul enregsitrement de ma requete2 alor que j'aimerai qu'il regarde parmis tout les enregistrements, et s'il y en a un qui correspond, qu'il modifie la formule de la cellule.

Une idée??

Merci d'avance.

Autres pages sur : vba parcourir cellules feuille

24 Décembre 2010 08:58:31

Personne n'a une idée car je suis vraiment bloqué?
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS