[VBA]Dernière colonne non-vide classeur fermé Résolu/Fermé

Question

Bonjour, 

pouvez-vous m'aider pour résoudre mon problème :
(je précise que je débute en VBA)

J'ai un fichier toto.xls ouvert et dans lequel je travaille.
Je cherche le n° de la dernière colonne non vide de la ligne 1 du fichier titi.xls. Il serait agréable de ne pas avoir à ouvrir titi.xls si on peut s'en dispenser.

Grosso modo, appliquer
col_non_vide = Range("IV1").End(xlToLeft).Column
sur mon classeur fermé

Pouvez-vous m'aider s'il-vous-plaît ?
Merci d'avance

Patrice33740 · Accepted Answer

Peut-être :
Sub DernèreColonneFichierFermé()
Dim NomFichier As String
Dim Chemin As String
Dim Formule As String
Dim col As Integer
Dim col_non_vide As Integer

  Range("A1").ClearContents
  Chemin = "D:\Temp\"
  NomFichier = "Classeur_à_lire.xls"
  For col_non_vide = Columns.Count To 3 Step -1
    Formule = "='" & Chemin & "[" & NomFichier & "]Feuil1" & "'!" & "R1C" & col_non_vide
    Range("A1").FormulaR1C1 = Formule
    Range("A1").Value = Range("A1").Value
    If Range("A1").Value <> 0 Then Exit For
  Next col_non_vide
  
  MsgBox col_non_vide
  
End Sub

Foreverson · Answer

Bonjour, merci de ta réponse.

Cela fonctionne ! 
J'aimerais comprendre toutes les étapes, peux-tu me dire si je suis dans le vrai :

La boucle part de la dernière colonne du fichier, pour atteindre la 3ième par pas de -1.

En A1, on met un lien vers le classeur fermé, pointant la 1ère ligne et la colonne de la boucle. On fait une sorte de copier/Coller Valeur. Si cette valeur est différente de 0, on sort de la boucle.

C'est à peu près ça ? Plutôt que "différente de 0", n'existerait-il pas une sorte de fonction non(estVide()) ?

En tout cas, merci beaucoup de ton aide !

michel_m · Answer

bonjour,

Peut-^tre 1ou 2 solutions,Mais:
nom de la feuille concernée dans titi ?

soluTion1

1/ s'agit -il d'une base de données dans titi avec les titres en ligne 1 et 1)champ en colonne A
3/ sino, Il y a t il des cellules vides entre la dernière colonne utilisée et la colonne A?

solution 2
1/ ton appli est elle en monoposte ?
2/ sinon as tu les droits d'accès au serveur (ou faisant office de )

Dans l'attente

Foreverson · Answer

La feuille dans titi s'appelle effectif. Lignes de titres sur la 1ère ligne, champ des colonnes en A, B et C.

A priori, pas de cellules vides entre la dernière colonne utilisée et la colonne A. Du coup, plutôt que de partir de la fin, je pense que partir de la 1ère colonne pour chercher la dernière colonne non vide permettrait de gagner quelques micro-secondes.

C'est une application pour mon ordi, pas de réseau, pas de serveur.

michel_m · Answer

Re,  


Solution 2  

dans  module1 de  ton classeur "titi", on prend en compte la dernière colonne à chaque utilisation de titi (modif, ajout...)   
Dans le module "Thisworkbook" dans titi ( si tu ne connais pas: Alt+F11 , ctrl+R pour faire apparaitre l'explorateur de projet,  thisworkbook)   

Private Sub Workbook_BeforeClose(Cancel As Boolean)   
Dim col As Byte   
     col = Sheets("effectif").Range("IV1").End(xlToLeft).Column   
     'écriture dans HKey_current_user/software / VB and VBA Program settings   
     SaveSetting appname:="ccm", section:="truc", Key:="machin", setting:=col   
End Sub

col est alors dans la base de registre windows, tu peux éteindre l'ordi, laisser "titi" fermé   voire le transporter dans un autre dossier

Dans ton classeur "toto"   
Sub xxxxx()   
Dim dercol_titi As Byte   
 'Lit la valeur dans la base de registre   
     dercol_titi = GetSetting(appname:="ccm", section:="truc", Key:="machin")   
End Sub   

Sub nettoyer()   
Sub EffacedansRegistre()   
     On Error Resume Next   
     DeleteSetting "ccm"   
End Sub   
End Sub
Tu peux choisir le noms que tu veux pour appname, section, et Key   



 Michel

Foreverson · Answer

Ok, merci à tous les deux pour votre aide !

[VBA]Dernière colonne non-vide classeur fermé

6 réponses

Discussions similaires