Elements manquant dans code

[JACMIC]

Bonjour à tous

Voici un bout de code :

Dim L As Integer 'Ligne
Dim Col As Integer 'Colonne
'Dim Feuil As Worksheet
Feuil = ComboBox2.Value 'Le nom de la feuille est dans le ComBox2
L = Sheets(Feuil).Range("A65536").End(xlUp).Row + 1 ' Trouver la dernoiere ligne vide
Col = Sheets(Feuil).Range("?")(xlToLeft).Column + 1 'Trouver la dernière colonne vide entre C et F[/B]
With Feuil 'Avec la feuille déterminer par la valeur du ComboBox2
.Range("A" & L).Value = ComboBox1.Value 'Valeur ComboBox1 vers ColonneA et ligne vide
.Range("B" & L).Value = ComboBox3.Value 'Valeur ComboBox3 vers ColonneB et ligne Vide
.Range("Col" & L).Value = TextBox1.Value 'Valeur TextBox1 vers colonne Vide à partir de C jusqu'a E et derniere ligne vide

End With
End Sub

Que faut-il mettre à la place de "?" pour trouver la dernière colonne vide entre les colonnes C à F sur la ligne ?

merci à celui ou ceux qui savent

Jacmic

 

[Pierrot93]

Re : Elements manquant dans code

Bonjour Jamic

pas sur d'avoir tout compris et pas assez d'eléments, mais regarde peut être le code ci dessous, à adapter pour ton fichier :

Dim x As Integer
x = Range("G1").End(xlToLeft).Column + 1

bonne journée
@+

 

[JACMIC]

Re : Elements manquant dans code

Merci Pierrot93

J'ai essayé mais ça ne fonctionne pas

Voici le fichier joint

Excuse pour tous les rem dans le code

Le but est avec le USF de compléter le tableau dans chaque mois

merci si toi ou quelqu'un d'autre trouve la solution

Jacmic

 

[pierrejean]

Re : Elements manquant dans code

bonjour Jacmic

Salut Pierrot

une petite amelioration

 

[Pierrot93]

Re : Elements manquant dans code

Re

le code ci dessous, te renvoie la 1ère colonne vide de la plage C8 B8, suppose que les sommes 1 à 4 soient bien renseignées chronologiquement...

Dim x As Range, c As Byte
Set x = Range("B8:F8").Find(Empty, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then c = x.Column

testes et dis moi si cela te concient.

@+

Edition : bonjour PierreJean, je regarde ta proposition...

 

[JACMIC]

Re : Elements manquant dans code

Re-bonjour
Merci Pierre Jean, et Pierrot93 pour vos réponses

Pierre Jean ta solution fonctionne presque. En fait je veux que les chiffres se mettent dans les colonnes.
Ex si 2 factures de SAMSE la premiere saisie se met dans la colonne C et la prochaine saisie dans la colonne D et ainsi de suite sachant que pour un même fournisseur les dates déchéances d'un mois ne varie pas

Pierrot93 je n'ai pas réussi à faire fonctionner ton code

Merci si tu peux me donner des précisions (peut-être sa place exacte)

Merci beaucoup

Jacmic

 

[Pierrot93]

Re : Elements manquant dans code

Re

modifies peut être le début de ta macro comme suit, mais à priori dans le fichier que tu nous as donné, il n'y a pas tout le code.

Pour diminuer la taille du fichier, valait mieux enlever quelques feuilles, plus lourde que le code.

Private Sub Validation_Click()
Dim L As Integer, x As Integer, Feuil As String
Dim y As Range, c As String

Feuil = ComboBox2.Value 'Le nom de la feuille est dans le ComBox2
With Sheets(Feuil)
Set y = .Range("B8:F8").Find(Empty, , xlValues, xlWhole, , , False)
    If Not y Is Nothing Then c = Mid(x.Address(0, 0), 1, 1)
End With

@+

 

[pierrejean]

Re : Elements manquant dans code

Re

Re Salut Pierrot

vois si cela te convient

 

[JACMIC]

Re : Elements manquant dans code

Bonsoir à tous,
Bonsoir Jean pierre et Pierrot93

Jean Pierre merci pour ton aide, c'est pile poil ce que je voulais.
Ca fait du bien d'être compris et aidé.

Merci à Pierrot pour son aide

Bonne fin d'année et Meilleurs Voeux pour 2008

Jacmic