Manipuler une partie de colonne VBA

Résolu/Fermé

QueenAS Messages postés 6 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 18 juin 2015 - 21 mai 2015 à 11:08
baladur13 Messages postés 47558 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 10 avril 2025 - 21 mai 2015 à 17:19

Bonjour, je suis toute nouvelle à la programmation en VBA et je rencontre quelques difficultés: je voudrais écrire dans une cellule (j,4) la médiane d'une plage de cellules [Cells(j,3) jusqu'à Cells(i-1,3)] appartenant à la même colonne, j'ai fait ces 4 essais sans succès:

Sheets("calculmediane").Activate
Cells(j, 4) = Application.Median(Rows(j, 3) + ":" + Rows(i - 1, 3))
ou
Cells(j, 4) = Application.Median(Range (Rows(j, 3) + ":" + Rows(i - 1, 3)))
ou
Cells(j, 4) = Application.Median(Range ("C" & j +":" +"C" & i - 1))
ou
Cells(j, 4) = Application.Median(Cells(j, 3) + ":" + Cells(i - 1, 3))

Help svp! :-(

A voir également:

Manipuler une partie de colonne VBA
Déplacer une colonne excel - Guide
Formule somme excel colonne - Guide
Trier colonne excel - Guide
Colonne word - Guide
Figer une colonne excel - Guide

1 réponse

Réponse 1 / 1

Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
21 mai 2015 à 12:05

bonjour,

es ce que tu veux mettre la formule dans la cellule ?

cordialement

QueenAS Messages postés 6 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 18 juin 2015
Modifié par QueenAS le 21/05/2015 à 13:44

Non dans une macro

Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
Modifié par Deudeu79 le 21/05/2015 à 14:04

  Cells(j, 4).FormulaLocal  = "= Application.Median(Range ("C" & j  & ":C" & i - 1))"

QueenAS Messages postés 6 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 18 juin 2015
21 mai 2015 à 16:23

Ca fonctionne parfaitement! Merci beaucoup! :-)

baladur13 Messages postés 47558 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 10 avril 2025 13 615 > QueenAS Messages postés 6 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 18 juin 2015
21 mai 2015 à 17:19

Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/

Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
21 mai 2015 à 17:03

de rien

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Excel VBA : Derniere colonne utilisée

Bonjour,

Je cherche à trouver la dernière colonne utilisée dans un onglet Excel.
L'équivalent de la commande :
lasti = Range("A65536").End(xlUp).Row
Mais pour les colonnes :)

Merci d'avance !

Excel formule : savoir si une cellule contient partie texte

Bonjour,
Moi qui me débrouille relativement pas trop mal avec les formules dans Excel, là je suis complètement bloqué!

J'ai une colonne C avec différents textes (chaine de caractères). Dans ma colonne L, j'aimerais faire une condition pour qu'il cherche dans ma cellule C5 si le texte comprend une chaine de caractère. Si la cellule ça comprend la chaîne de caractère il me retourne un texte défini et si la cellule ne comprend pas la chaîne de caractère, que la recherche ne me retourne rien.

J'ai donc dans ma cellule L5 la formule suivante : =SI(CHERCHE("*ASA*";C5);"Smartnet";"")
J'aimerais que si la cellule C5 comprend les caractères "ASA", que la c...

Pokémon X et Y : comment effacer une partie ?

Bonjour, comment peut-on effacer une partie dans pokémon X ou Y ?
Le guide format 2 pages ne le dit pas, et le starter que j'ai pris me me plait pas....
On doit pouvoir le faire depuis l'écran titre mais avec quels boutons ? :x

Merci d'avance >_

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...