Selection de toutes les cellules non vides et copie colle

Bonjour à tous

Je souhaiterais selectionner toutes les cellules non vide sur 2 colonnes et lancer une autre macro a partir de la selection

Pourriez vous m'aider pour le code vba svp?

Les infos qui arrivent dans les cellules non vides arrivent selon une recherche valeur

Je ne peux vous mettre tous le classeur avec mon code car il est trop lourd

J'adapterais votre solution à mon code si cela ne vous gene pas ..

Merci d'avance

Bonjour,

A tester..

Dim Plage As Range
    Set Plage = Range(Cells(1, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 3))

A+

bonjour l'ermite et Merci pour ton code

Seulement je souhaiterais que la selection s'arrete à la premiere cellule vide

J'ai egalement du mal a comprendre ton code au niveau de cell(1,2) : A quoi correspondent les 1 et 2?

Merci d'avance

ps : Désole mais javais pas vu que j'avais des colonnes cachées entre la A et B

En fait je voudrais selectionner les colonnes A à J

Dim Plage As Range
    Set Plage = Range(Cells(1, 1), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 10))

A+

Desole de t'embeter encore mais la plage de cellule a selectionner commence en cellule O5 et fini en cellule X5

ma recherche valeur rempli les cellules O5 a X5 et celle du dessous

Je souhaiterais selectionner toutes les cellules de O5 a X5 et celles du dessous jusqu'a qu'il y ait une cellule vide

Merci encore

Si je me suis fait comprendre je ne devrais plus t'embeter

Si je me suis fait comprendre je ne devrais plus t’embêter

Si tu étudiais un peu le code que je t'ai donner, tu pourrais l'adapter ...

aller, encore une tite aide

Range(Cells(LigneOuCommencer, ColonneOuCommencer), Cells(Cells(Rows.Count, "X").End(xlUp).Row, ColonneouFinir))

A+

desole mais je ne connias pas trop ce type de code

voila ce que j'ai écris :

Dim Plage As Range

Set Plage = Range(Cells(5, O), Cells(Cells(Rows.Count, "X").End(xlUp).Row, 10))

mais y a pas... ca plante

Je pense que c'est le "X" que j'ai pas saisi car toi tu mettais une valeur dans les premières formules et je ne sais pas à quoi elle correspond..

Encore desolé de mon insistance et de mon manque de connaissance

Tu peu mettre la lettre O mais alors elle doit être entre guillemet mais tu peu aussi mettre le N° de la colonne

Colonne O = Colonne N°15

Colonne X = Colonne N°24

Tu peu donc écrire..

Dim Plage As Range
Set Plage = Range(Cells(5, "O"), Cells(Cells(Rows.Count, "X").End(xlUp).Row, "X"))

ou bien

Dim Plage As Range
Set Plage = Range(Cells(5, 15), Cells(Cells(Rows.Count, 24).End(xlUp).Row, 24))

J'espère que cette fois tu a compris.

Ah oui, encore petite précision

Cells(Rows.Count, "X").End(xlUp).Row C'est la dernière ligne non-vide de la colonne X

A+

merci pour tout je vais me debrouiller avec tout cela

Merci de ta patience

A bientôt

Bonsoir

Je reviens sur ce fil car il me manque un détail important

Je souhaiterais faire un copier/coller de la selection dans une autre cellule

Comment faire pour selectionner la cellule de destination de la copie sans desactiver ma sélection?

En imaginant que je souhaite coller la selection en A5 par exemple

Merci encore

Ca n'a pas été long pour ton retour..

Sois dit en passant, quand ton problème est résolu, il est d'usage..

Pour La question suivante..

    Sheets("Feuil1").Range(Cells(5, 15), Cells(Cells(Rows.Count, 24).End(xlUp).Row, 24)).Copy Sheets("Feuil2").range("A5")

A+

On va y arriver promis... apres je te laisse en paix...

Le colle que je souhaite correspond à :

PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

la suite de mon code si cela peux t'aider constitue des formats et tries st :

Application.CutCopyMode = False

ActiveWorkbook.Worksheets("TVA ").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("TVA ").Sort.SortFields.Add Key:=Range("g5:g30"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("TVA ").Sort.SortFields.Add Key:=Range("h5:h30"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("TVA ").Sort

.SetRange Range("A5:j504")

.Header = xlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("l12").Select

With Selection.Font

.ColorIndex = xlAutomatic

.TintAndShade = 0

End With

Selection.Font.Bold = False

Range("A5").Select

Sheets("journal").Select

Range("A5").Select

Sheets("TVA ").Select

Range("o5:ai504").Select

Selection.ClearContents

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Range("a1").Select

End Sub

Merci

Please n'abandonnons pas si près du but...

Qui parle d'abandonner ? ont est pas sur internet 24/24

Pour copier uniquement les valeurs il faut procéder en deux fois..

    Sheets("Feuil1").Range(Cells(5, 15), Cells(Cells(Rows.Count, 24).End(xlUp).Row, 24)).Copy 
    Sheets("Feuil2").Range("A5").PasteSpecial Paste:=xlPasteValues

Salut Lermite et desolé de mon impatience

j'ai ouvert un autre poste ou j'ai mis le fichier joint à celui ci

ce que je souhaiterais c'est de faire des 2 macro une seule, d'ou ma selection des cellules non vide de O à X et le copie colle dans la cellule A5

Par contre avec ton code, le tri ne se fait plus et j'avoue que je suis perdu

Je te remet le fichier en piece jointe de ce message

Bonjour

je crois avoir trouver d'ou viens mon problème

La selection que je souhaite s'arrete a la première cellule de la colonne O qui est vide

Je ne veux pas selectionner les cellules remplies qui viennent plus bas

Si cela peux vous aider

Merci encore car je n'ai bientôt plus de cheveux a force de me les arracher