Transfert de données CountA(Range("B:B")) + 1 impossible

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Mai 2011

• #2

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Bonjour lesremontées, et bienvenue sur le forum

tout d'abord, pourrais-tu aller faire un petit tour ici:
Lien supprimé
et plus précisement au point 3C qui dit ceci:

c) Ce forum offre la possibilité unique de joindre des fichiers, profitez de cette merveilleuse facilité .........................
En ce qui concerne la possibilité de pièces jointes, elles devront être explicites et comporter juste un exemple de votre problème,.............................

Cliquez pour agrandir...

mais sans voir ton fichier, je devine que c'est certainement les cellules fusionnées qui posent problème
les cellules fusionnées sont à éviter si possible 😡😡😡

à+
Philippe

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 15 Mai 2011

• #3

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Bonjour LESREMONTEES et bienvenue, salut Philippe 🙂,
Je plussoie à la remarque de Philippe 😡...
Concernant CountA et les cellules fusionnées :
Les cellules fusionnées ne contienne une valeur QUE dans la première cellule en haut à gauche, les autres sont vides 😛...
Donc si tes fusions sont régulières (suite de cellules fusionnées 2 par 2 par exemple), tu peux multiplier par le nombre de cellules fusionnées

Code:

MsgBox Application.WorksheetFunction.CountA(Range("B:B")) * 2 + 1

Si tes fusions sont irrégulières, il faut que tu détermines la dernière cellule remplie, puis la taille de la dernière fusion

Code:

Dim Cellule As Range
Set Cellule = Range("B35000").End(xlUp)
If Cellule.MergeCells Then
MsgBox Cellule.Row + Cellule.MergeArea.Rows.Count
Else
MsgBox Cellule.Row + 1
End If

Bon dimanche 😎

 

Vote positif 0 Vote négatif

L

LESREMONTEES

XLDnaute Nouveau

• 15 Mai 2011

• #4

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Bonjour, phlaurent55 et JNP
j'ai bien essayé ce que vous m'avez dit celà ne fonctionne pas pour autant. N'etant que débutant dans la programmation je vous ai mis un exemple dans mon 1er message.
L'accés à l'userform se fait à partir de la feuille Formulaire Enfants, les données sont saisies et basculées par le bouton (validation ajout licencié) vers les feuilles Formulaire Enfants et consultation enfants.
La feuille Formulaire Enfants se remplie mais rien ne se met dans la feuille consultation enfants.
Peut être que vous avez la solution.
Merci et bon dimanche

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 15 Mai 2011

• #5

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Re 🙂,
Ton fichier plante à l'ouverture (ressources insuffisantes) chez moi 😱...
Bon dimanche 😎

 

Vote positif 0 Vote négatif

L

LESREMONTEES

XLDnaute Nouveau

• 15 Mai 2011

• #6

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Quelle est la solution pour que vous puissiez voir mon fichier. J'ai ouvert le fichier sans probléme.

J'ai essayé de changer la piéce jointe pour voir.

 

Dernière édition: 15 Mai 2011

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Mai 2011

• #7

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Re,

voici déjà une erreur rencontrée dans le code:

Cells(lignesuivanteS, 18) = cours2.Value

enlève le "S" de lignesuivanteS

à+
Philippe

 

Vote positif 0 Vote négatif

L

LESREMONTEES

XLDnaute Nouveau

• 15 Mai 2011

• #8

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Merci Philippe pour la correction, mais je n'arrive toujours pas à faire renter mes données.

A+

 

Vote positif 0 Vote négatif

L

LESREMONTEES

XLDnaute Nouveau

• 15 Mai 2011

• #9

Re : Transfert de données CountA(Range("B:B")) + 1 impossible

Merci a tous de vous être demené la solution est

Code:

MsgBox Application.WorksheetFunction.CountA(Range("B:B")) * 2

🙂

 

Vote positif 0 Vote négatif